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2.0 PREFACE 


This document orovides the external Interface Specification for the 
CYBER Vectorizing Code Generator (CVCG). 
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3.0 INTRODUCTION 


The CYBER Vectorizing Code Generator (CVCG) supports the development 
of compliers for the following source languages! ADA» BASTCs Cs 
COBOL» CYBIL» FORTRANs and PASCAL$ producing object code for 
execution on (any nodel of) the followina target machines: CYBER 
180» CYRER 205» and CYBER 250. A source program In one of these 
languages Is first processed by the avoropriate comollerts "Front 
End™» which is tanquage denvendent and machine Independent. The 
Front End performs scannings voarsings and semantic anatysis. The 
internal representation of the orogram us2d In the Front End Is then 
transformed into the internal representation used in the Code 
Generator by a "Rridge™s which Is both language dependent and 
machine depnvendent. The Bridge receives support from a set of 
erocedures provided by the Code Generators which are coltectively 
termed the CVCG “Interface™. Finally the Code Generator transforms 
the program into object code for a specific target machines. CVCG» 
which is lanouage independent and machine dependents performs 
automatic vactorizations optimizations and memory and register 
allocation. Hereafters the term "Host™ will be used to refer to the 
Front End and Bridge as a single units white the term "Back Enda” 
wit!t be used to refer to the 3ridge and Code Generator as 4a singla 
unit. 
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3.1 ARCHITECTURAL DIAGRAM 


The tynical architecture of a compiler which uses the CYBER 
Vectorizing Code Generator can be illustrated as follows. 
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400 INTERFACE PROCEDURES 


The CVCG Code Generator provides a set of Interface procedures which 
are callabie from the Host (normatty from the Bridge). They must be 
used by the Host to pass all information needed by CVCG for the 
neneration of correct code with the dasitred tevel of optimization 
and vectorization. Proceduras are also present which allow the Host 
to query CVCG about the object code it generates. 


4o1 INITIATION AND TERMINATION Pancenuges 


A sinalte Invocation of the code generator consists of an ordered 
series of calls to the code generator Interface orocedures. [nn the 
most general case this will consist of the followina stenos: 


le A call to cvpti_begin_ module; 

2» Multiote calls to vertous definition Cevyptildefine_.»e.) and 
emission (cvofi_lemit ee.) orocedures} 

3. A call to ecvesi_begin_generation; 

4, Multinie calis to various auery (cvoS$i_lquery e+e) and 
transmission (Cevosictransmit_e..) orocedures; 

5e A call to cvp8icend generation; 

6. Multiple catis to various auery (cvp$i_query_e2«.) procedures; 

7. A cal! to cvofi_end module. 


Stens 2 through 6 are all oaptionals however if steno 3 is parformed 
then steno 5 must also he performed. 


Multiote invocations of the code generator are allowed. Each 
invocation ts Indenvendent of all other tInvoceationss that Iss the 


code generator is completely (relinitiatized each time steo 1 is 
performed, 


4elel CVPEIT_REGIN_GENE® ATION 


2? PUSH CLISTEXT t= ON) 27 
*copye evtt$ivlgeneration status 
2? PNP 2? 


272? PUSH (LIST t= ON) 22? 
{ cvpti_begin generation } 
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272? POP 2? 
PROCEDURE CXREF] svpoti_beain_generation { 


generate_errors_binary: hoolean3 
VAR generation _status: cevtSi_lgeneration status) }3 


PURPOSE: 

This procedure informs the code generator that the Host has 
conpleted sassing to the ende generator ali information needed in 
order to aenerate the object code. At this polnt the code generator 
will generate the requested object sode and place it on the binary 
File, 

QRNERING: 

AI] definition Cevetivdefine_see) and amission Ccovetivlemit ess?) 
procedure calis must precede the call to cvpti_begin generation. 
All query (cvp$ivlaquery_eee) and transmission (cvoSictransmit iso.) 
procedure calis must follow the call to cvp$i_begin generation. 


There must he a subsequent call to cvoti_lend generation prior to the 
call to cvp$i_end_ module. 


401.2 CVPSI_LREGIN_ MODULE 


22 PUSH (LISTEXT t= ON) ?? 
*copye cvtSi_code_aenerator_attributes 
272 PNP 2? 
2? PUSH (LIST 22 ON) ?? 
{ evpti_beain module } 
22? POP 2? 

PROCEDURE CXREFY cvpti_begin module { 

code_generator_attributes: evt$i_code_aenerator_attributes); 

PURPOSE: 
This procedure initiates the code generator. 


QRDERING? 


This procedure must be calted prior to any other procedure in the 
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Interface. It may not be called again until after cvpti_end_module 
has been called. 


4o1.3 CVPSTI_LEND_GENER ATION 


2? PUSH CLISTEXT = ON) 2? 

*copye cvtti_code_generator_results 
2? POP 2? 
272? PUSH (LIST t= ON) 2? 
£ eveti_lend generation } 
22? POP 2? 

PROCEDURE EXREFI] cvpti_lend generation [ 

VAR ecode_generator_resulits? cvtti_code_generator_results)3 

PURPOSE: 
This procedure tnforms the code generator that the Host has 
completed passing to the code generator all information that Is to 
be placed on the binary file. At this point the code generator wil! 
finish generation of the binary file. 
DRNERING? 
Alt transmission (evosi_transmit_ee.) orocedure calis must precede 
the call to cvo$i_lend_aeneration. Onty auary (cveSi_query_..2.) 
procedure cafliss and the call to cvotti_lend_ modules may follow the 


call to cvoti_end generation. There must be one call to 
cvo$i_end generation for each call to cyp$i_begin generation. 


4o104 CVPSI_LEND MODULE 


22? PUSH (LISTEXT 2= ON) ?? 
22? POP 2? 

2? PUSH (LIST 2 ON) ?? 

{ evesilend_ module } 

2? POP 2? 


PROCEDURE [XREF] cyvpti_end_modute; 
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PURPOSE: 
This procedure terminates the code generator. 
ORDERING: 


No other procedure in the Interface may be called after 

cvpti_end modules untess and until cvo$i_lbegin_modute is called ta 
reinitialize the code generator. Ther@ must be one call to 
cevesi_lend_wodule for each call to cveSivl begin nodule. If 
evosi_lbegin generation has bean calleds then cvp$i_end_ module may 
not be called until after the corresponding cvp$i_end generation Is 
called. Otherwlses cvoti_end module may be called at any time after 
evepSi_begin module. 


4n5 
CYRER Vectorizing Code Generator Interface Specification 
85/01/63 


4.6 INTERFACE PRACEDURES 
422 CONSTANT DEFINITION PROCEDURES 


RL RN AEs AMM RI SED EN “ENDS SORT AEF ANI WER LETRA ARE ste GEA) ER IN ED AND A daa AORN AD SY OE: RN RS NS ED GI UE OEE HG cee OED RO “My et CD RY AU END seen ED EDN AONE Ge Kiel CORY RES SD OR UND a eS She A atin SE 


4.2 CONSTANT DEFINITION PROCEDURES 


Fach constant referenced in one of the code emission procedure calls 
must have been previous!y defined hy one of the constant definition 
procedure caltse 


4e201 CVPSI_DEFINE_ARRAY_CONSTANT 


2? PUSH (LISTEXT 2# ON) 2? 


*copye evtSi_array_constant 
*copyve cvtti_code_qenerator_id 


27? POP 2? 
2? PUSH (LIST t= ON) 2? 
£ evepti_ldefine_arrayv constant } 
2? POP 22 
PROCEDURE ([XREF] cvoti_define_array_ constant { 


array_constant: evt$i_array constant; 
VAR constant_id: cevt#i_lcode_generator_id) 5 


PURPOSE: 
This procedure defines and describes a one-dimensional array 
constant. 


4e2e2 CVPST_DEFINE_ POINTER CONSTANT 


2? PUSH CLISTEXT 22 ON) 2? 

*copye cvtsi_code_generator_id 

7272? PNP 2? 

2? PUSH (LIST 3 ON) 2? 

£ evp$i_define_pointer_constant } 
2? POP 2? 


PRENCENURE CXREF) cveti_define_oointer_constant { 


VAR constant_id: evtti_code_generator_id)3 
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PURPOSE? 
This procedure deafinas a volnter constant. The Code Generator wit! 


provide a bit pattern for the constant that corresponds to the 
standard NIL poitnter for the target _system. 


44253 CVPSI_NDEFINE_SCALAR_CONSTANT 


22? PUSH CLISTEXT t= ON) 2? 


*copye cvtsi_code_gener ator_id 
*copye evtti_scalar_constant 


27? POP 2? 
27? PUSH (LIST :2= ON) ?? 
€ evosi_define_ scalar constant } 
2? POP 27 
PROCEDURE [XREF] cvpti_ define_scalar_constant { 


scalar_constant: cvtti_scalar_ constant; 
VAR constant_id: cvtSi_code_generator_id)3 


PURPOSES: 


This procedure defines and describes a scalar constant. 
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4.2 TYPE DEFINITION PROCEDURES 


Fach type referenced in one of the tyoe definition or object 
definition procedure calls must have been previous!y defined by one 
of the tyve definition procedure calis. <A collection of primitive 
types are provided by the Code Generator for use In describing the 
newly defined typves?: 


AS A A see a ae a a om se ne SER i> 1 oP 


22? PUSH {LISTEXT :2 ONY 22. 
22 POP 2? 


7? PUSH (LIST t= ON) 7? 
€{ evt3i_clcode_gqenerator type } 
22 POP 2? 


TYPE 
evt$i_code_qenerator_type = ( 


cvyctictyvpelesss 
{ This is used when the type of an object or oneration Is unknown 
for not applicable. 


evesi_type_integer_32» 
{ This primitive type Is used for operations upon objects which ara 
{represented at the hardware Implementation tevel with 32-bit signed 
{inteagers. Note that CVCG requires the objects themselves to be 
{defined In terms of another types usually in terms of 54-bit sianed 
{integers having vatue bounds constraints. 


cvcti_type_real 329 
{ NAbjeets of this type mnust have a tength of 32 bits. 
{ This primitive type Is used for objects which are represented at 
{the hardware inplementation ftevel with 32—bit floating point values; 
{and for operations upon such ohjectse FEege FORTRAN half precision. 


eve$Si_type_integer_64>s 
{ Objects of this type may have a fixed Yenath between 1 and 64 bits. 
£{ This primitive type Is used for objects which are represented at 
{the hardware Imoltementation tevel with 64-bit signed integers3 and 
{for operations upon such objects. Note that this primitive type is 
Lalso used in the definition of Integer objects having value bounds 
fconstraints. Eeqe CYBIL Integers ordinals subrange. 


cvcti_tyoe_real_ 64> 
{ Objects of this type must have a fength of 64 bits. 
{ This crimtitive type is used for objects which are represented at 
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{the hardware Implementation ltevel with 64<bit floating point va es3 
fand for nveratilons uveon such objects. E.qg-e FORTRAN real. 


cvc$i_type_complex_64» 
{ QbJjJects of this type must have a tength of 64 bits. 
{ This eritmitive tyne is used for objects which are represented at 
{the hardware implementation tevel with a pair of 32=<hbit floating 
{point vatues3 and for operations upon such objects. 


evesi_ type _real_128>» 
{ Dbjects of this type must have a length of 128 bits. 
{ This primitive type is used for objects which are represented at 
{the hardware iImptementattion level with 128<bit floating noint values; 
fand for operations upon such objects. Eseqe FORTRAN double precision. 


asvc$i_ltypa_complex_128>» 
{ Qbjects of this type must have a length of 128 bits. 
{ This orimitive type is used for objects which are represented at 
{the hardware implementation level with a pair of 64-bit floating point 
{values3 and for operations upon such obfjectse Eeaq.s FORTRAN complex. 


cyc$i_type_conplex_256» 
{ Objects of this type must have a ftength of 256 bits. 
{ This primitive type Is used for objects which are reoresented at 
{the hardware Implementation fevel with a pair of 128<bit floating 
fpoint values; and for operations upon such objects. 


cvc$i_type_boolean_sigqns 
{ fibjects of this type may have a fixed tength between 1 and 44 bits. 
{ This primitive type Is used for truth-valued objects which are 
{represented at the hardware imolementation tevel with a signed inteoer 
for integer subrange; and for onerations upon such objects. Af! 
{non-negative values are treated as FALSEs and all negative values are 
{treated as TRUE. Eege CYBER 180 FORTRAN logical. 


cvc$i_type_hbooltean_Q_l1s 
{ Objects of this type nav have a fixed tenath between 1 and 64 hits. 
{ This primitive type Is used for truth-valued objects which are 
{represented at the hardware Imolementation level with a signed integer 
for Integer subrange; and for operattlons uvpon such objectse The vaiue 
{of zero Is treated as FALSEs the value of one fs treated as TRUEs and 
{ali other vatues have an undefined truth valuee Eege CYBIL boolean; 
{CYRER 200 FORTRAN togicale 


—eve$i_type_bitustrings 
{ Objects of this type may have any fixed bit tength. 
{ This primitive type Is used for objects which are represented 
{fat the hardware Imolementation level with a sequence of hits; and 
{for operations upon such objects. £F.a- CYBIL set. 
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evesiv_type_disjotints 


{ Objects of this type may have any fixed bit tenath. 
{ This primitive type is used for objects which are represented 


fat the hardware Imptementation teveal with a seauence of bits; 


In 


faddition the object must have no ostimization interference with 


fany other obfect of any type@e. Exde 


{objects. 


cveSi_ltype_untlons 


many kinds of compller-qenerated 


{ Objects of this type may have any fixed bit length. 
{ This primitive type Is used for objects which are represented 


fat the hardware Implementation level with a sequence of bits; 
faddition the object has an ootinization interference with objects 
Eege FORTRAN bnolean;s CYBIL cells sequences 


fof more than one type, 


cvc$i_type_bdo_O_pdus 


In 


{ Objects of this type may have any fixed character tength.. 
{ This primitive tyee is used for abjects which are represented 
fat the hardware implementation level tike CYRER 180 BDP type O, 


evce$i_ityoe bdp_l_odulsds 


{ OQhiects of this type may have any fixed character length. 

{ This primitive type Is used for objects which are represented 

{at the hardware implementation tevel like CYBER 180 BDP type 1. 
cvesicltype_bdp_2_ods» 

{ Objects of this type may have any fixed character tength. 

£ This primitive tyoe Is used for objects which are represented 

fat the hardware implementation lave! like BNP tyne 2. 


cycti_ type_bdo_3_pdsisds 


CYBER 180 


{ Ofbjects of this type may havea any Fixed character length. 

{ This primitive type is used for objects which are represented 

fat the hardware implementation level like CYBER 180 BDP type 3. 
cveti_type_bdo_4_udus 

{ Objects of this type may have any fixed character length. 

{ This primitive type Is used for objects which are represented 

fat the hardware implementation level fike CYBER 180 ADP type 4. 


eveti_ltype_bde_S_udtsch»s 
{ Objects of this type may have any fixed 
{ This primitive type is used for objects 
fat the hardware Implementation level like 


cycti_vtype_bdoe_4_udtss» 
{ Objects of this type may have any fixed 
{ This primitive type ts used for objects 


character 
which are 
CYBER 180 


character 
which are 


fength,. 
represented 
BDP type 5, 


fength. 
reoresented 
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{fat the hardware Implementation tevel tlike 
eveti type _bdp_7_udischs 
{ Ohijects of this type may have any fixed 
{ This primitive tyoe is used for objects 
{at the hardware Implementation level tike 


evesi_tyoe_bdp_8_udisss 
{ OQbjects of this type may have any fixed 
{ This orimitive type Is used for objects 
fat the hardware implementation tevel like 


cveti_type_bdpo_9_ as 
{ Objects of this typ2 may hava any fixed 
{ This erimitive type is used for objects 
fat the hardware implementation level tike 
{Eeag. FORTRAN characters CYRIL string. 


evesSi_ltype bde_l0_hbuys 
{ Objects of this type may have any Fixed 
{ This orimitive type Is used for objects 
fat the hardware Implementation level tike 


ceycti_type_bdp_ll_ubsy»s 
{ Objects of this type may have any fixed 
{ This orlImitive type Is used for objects 
fat the hardware Imolementation tevel tike 


cvcti_type_bdo_1l2_tods» 
{f ChiIects of this type may have any fixed 
{ This orimitive type is used for objects 
fat the hardware implementation tevel tike 


evesivltype_bdp_1l3_todsisds 
{ Objects of this type may have any fixed 
{ This orimitive type is used for objects 
{at the hardware Implementation level tike 


evesicltype_hdo_14_ +t buys 
{ fhjects of this type may have any fixed 
{ This orltmitive tyne Is used for objects 
{at the hardware Implementation level ike 


eveSitltype_bdp_l5_tbs» 
{ Objects of this type may have any fixed 
{I This oritmitive tyne fs used for objects 
fat the hardware implementation ftevel like 


evc$i_cltyoe_nointers 


CYBER 180 


character 
which are 
CYRER 180 


character 
which are 
CYBER 180 


character 
which are 
CYBER 180 


character 
which are 
CYBER 180 


character 
which are 
CYBER 189 


character 
which are 
CYBER 180 


character 
which are 
CYBER 180 


character 
which are 
CYRER 180 


character 
which are 
CYBER 180 


BOP tyne Be 


length. 
represented 
RDP type 7. 


lengthe 
represented 
BDP type 8. 


fength. 
represented 
B8DP type 9. 


length. 
represanted 
BOP type 10. 


fength. 
reoresented 
BDP type ll. 


fength. 
represented 
BDP tyne 12. 


length. 
represented 
BOP type 13. 


lengths» 
represented 
BOP type 14. 


lengthe 
represented 
BDP type 15. 
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€ This vorimitive type is used for objects which are represented 
fat the hardware implementation tevel with 48—hbit polnters. 
{E.ge CYRIL fixed volinters. 


cve$ivltype_arrays 
{ This primitive type is used for objects which are represented 
fat the hardware [Implementation tevel as an array of elements. 


cveti_type_records 
{ This prltmitive type is used for objects which are represented 
fat the hardware Implementation level as a record structure. 


evesSi_type_orocedur es 
{ This primitive tyne Is used for orocedures when they are treated 
fas objects of pointers. 


evetivltype_internal 
{ This orimitive type is used only internally to the Code Generator. 


$3 


CONST 
eve$i type _char_string = cvcti_tyoe_bdp_9_ ay» 
cveSi_tyoe_integer = ecvcti_tvpoe_integer 643 


> 7 <a: aH a a ae ee a ee an a a 
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4Ge3e1 CVPSI_DEFINE ARRAY_TYPE 


2? PUSH (LISTEXT t= ON) 2? 
*copoye cvt$i_array_attributes 
*copyc evtSivcarray_descriptor 
*oopye cevtS$i_code_qenerator_id 
2? POP 2? 

2? PUSH (LIST :2= ON) ?? 

€{ cvpti_define_array_type } 

22 POP ?? 

PROCEDURE CXREF] evosSi_define_array_tyoa ( 
array_attributes: evtti_array_attributes; 
array_descriptor: “cvt$i_array_deser lpotor3 

VAR tyvoe_Ids evtti_eode_generator_id)3 


PURPOSE: 

This procedure defines and describes a new array typee 

ORDERING: 

The array eliement_tvpe must be previousty defined hy a call to ona 
of the following tyoe definition procedures: 
cypti_define_array_types cvpti_define_integer_subtype, 
cveti_define_pointer_types cve$i_define_proc_pointer_typays 


eveti_ define_ranae_types cvosi_define_record types or 
cevp$i_define_scalar_typee 


4.3.2 CVPSI_DEFINE_INTEGER_SUBTYPE 


2? PUSH (LISTEXT s= ON) 2? 
*copye cvtSi_code_generator_id 
2? POP 2? 

27? PUSH (LIST 22 OND 2? 

£ evoti_define_integer_subtyoe } 


22? POP 2? 


PROCEDURE EXREF] cvoti_define_integer_subtyoe ({ 
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parent _ type: cvt$i_code_cenerator_ ids 
fower_bound? Integer} 
upper bound? integer; 

VAR subtype_Id? cevtSi_code_generator_id);3 


PURPOSE: 


This orocedure defines and describes a new subtype of a pravicousty 
defined parent _tyoe. Associated with this subtyoe are hounds 
constraints. It is the responsibility of the Host to ensure that 
objects of this subtype do not have vatues outside the specified 
bounds. The Code Generator will not oerform or introduce bounds 
checking based on the snecified bounds constraints. 


ORDERING: 

The parent _type must be previously defined by a call to 
cvyp$i_ldefine_range_type or hy a call to ecve$i_define_scatar_type. 
In the former cases the bounds of the subtyoe must not Iie outside 


the bounds of the range type. tn the fatter cases the scalar type 
must be cvcti_type_integer. 


403.3 CYVPSY_DEFINE POINTER _NBJECT 


2? PUSH (LISTEXT s# ON) 22 
*copye cvt$i_code_gener ator_id 
22? POP 2? 
2? PUSH (LIST := ON) 2? 
{ evp$i_define_pointer_object } 
2? POP 2? 
PROCEDURE CXREFI] cvotiildefine_pointer_object { 


pointer_id: evt$i_code_generator_id3 
object _tyoe: cvt$i_code_generator_id);3 


PURPOSE: 


This procedure dascribes a pointer type in terms of the object to 
which it can pointe 


NRNHERING: 
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The described pointer type must he praviousty defined by a call to 
cvpeti_define_pointer_ type. There must be one call to 
evpti_define_voointer_object for each call to 
evesi_cldefine_pointer_types thus no two calls to 
cvoti_define_pointer_ohb ject may specify the same pointer_id. The 
object_type must be previously defined by a call to one of the 
following type definition procedures: cvpti_ define_array_types 
eypti_define_Integer_subtypes cvptirldefine_poointer_types 

cevpti_ define _proc_pointer_types cvosil define _ range type, 
cvp$i_define_record types or cvosi_define_scalar_ type. 


42304 CVPSI_DEFINE_POINTER_TYPE 


22 PUSH (LISTEXT t= ON) 2? 
*copye cvt$S$i_code_gqenerator_id 
2? POP 2? 
2? PUSH (LIST 2= ON) 2? 
€£ evpSicvdefine_volnter_type } 
22 (PO? 2? 
PROCEDURE [XREFI] cve$i_define_nointer_type ( 

VAR typa_id: ecvtti_code_generator_Id)3 
PURPOSE: 
This procedure defines a new oointer tyre. 
ORDERING: 
The object which can be pointed to by a pointer of this type must be 
described In a subsequent cal! to cvoti_ldefine_pointer_object. The 


pointer object must be described before any referances to the new 
pointer type occur In an object definition procedure. 


4.3.5 CVPST_DEFINE_PRIC_POINTER_TYPE 


2? PUSH (LISTEXT 3= ON) 2? 
*copye cvt$i_code_generator_id 


2? POP 2? 
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4.3.5 CVPSI_DEFINE PROC _POINTER_TYPE 


2? PUSH (LIST t= ON) 2? 
{ evpti_define_proc_potnter_type } 
22? POP 2? 
PROCEDURE [XREF] cvpti_define_proc_pointer_type { 
VAR type_id: evtti_code generator _1d)3 
PURPOSE: 


This procedure defines a new eointer~-to-procedure type. 


4.3206 CVPSI_DEFINE_2ANGE_TYPE 


22? PUSH (LISTEXT t* ON) 2? 


Kcopye cvtti_cede_generator_id 


2? PUSH (LIST %2 ON) ?? 
{ eveticdefine_range_type } 
2? POP ?? 


PROCEDURE CXREFI cvpti_define_range_typa { 
jower_hound: Integer; 
upper _ hound: integer; 
VAR type_id: evtS$i_code_qenerator_id)3 
PURPOSE: 
This procedure defines and describes a new integer type with which 
bounds constraints are associated. It is the responsibitity of the 
Host to ensure that objects of this type do not have values outside 


the specified bounds. The Code Generator will not perform or 
Introduce bounds checking based on the specified bounds constraints. 


4307 CVPSI_LDEFINE_RECORD_ TYPE 
2? PUSH CLISTEXT 2= ON) 2? 


*copyc cvtti_code_gener ator_id 
*copye cvtti_record_attributes 
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*copye cvtti_record descriptor 
22 PNP 72 


272? PUSH (LIST 3= ON) ??7 
{ evp$i_define_record_type } 
27? POP 2? 

PROCEDURE [XREF] evosiidefine_record_type f¢ 
record_attributes: cvtti_lrecord_ attributes} 
record_desecriptor: “cevt$i_record_deseriptor 3 

VAR typoe_id: cvt$i_code_genarator_id); 
PURPOSE: 
This orocedure defines and describes a new record type. 


ORDERING: 


Fach fletd type of the record must be praviously defined by a call 
to one of the followina type definition orocedures? 
evoSi_define_array_tyoes cvesi_define_integer_ subtypes 
evoeti_define_pointer_tyoes cvpSi_ define_proc_pointer types 
cyotiidefine_range_typoes cvps$i_idefine_record types or 
cyosi_define_scalar_tyoe. 


4e308 CVPST_DEFINE_SCALAR_TYPE 


22 PUSH (LISTEXT t= ON) ?? 


*copyc cevt$i_code_generator_id 
*copyc cvt$ivlscatar_tyoe 


272 POP 2? 
22 PUSH (LIST %# ON) 27 
{ evosi_define_scalar_type } 
2? POP ?? 
PROCEDURE EXREFY cveti_define_scalar_ tyne f{ 


scalar_type: cvt$icscatar_tyvoe}3 
VAR type_id! cvtti_code_genarator_id); 


PURPOSE: 
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4.2.8 CVPSI_DEFINE_SCALAR_TYPE 


This procedure defines a new sealar tyne, 
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404 OBJECT DEFINITION PROCEDURES 


4.4 OBJECT DEFINITION pRocepuges 


Each object referenced tn one of the object definitions code 
emissions or query procedure catis must have been previous!v defined 
by one of the object definition procedure calls. 


4e4-.1 CVPSI_LNEFINE_DATA_AREA 


2? PUSH CLISTEXT 22 NN) 22 


*capye cevt$i_code_gener ator_id 
*copye cvtti_ldata_area_attributes 


2? POP 2? 

22 PUSH (LIST := ON) 2? 

{ cyptsi_define_data_area } 
?2? POP 2? 


POPNCEDURE CXREF] sveti_define_data_area { 


data_area_attributes: cvt$lidata_aren_attributes; 
VAR data_area_id: ecvtti_code_generator_id); 


PURPOSE: 

This procedure defines and describes a new data area. A data area 
is a region in virtual memory where an unordered collection of data 
items is placed (e.g-2 a CYB8IL section). The relative location 


within the data area of each data ttem Is undefined; the Code 
Generator may alter the Item ordering from that given by the Hoste 


$e4.2 CVPET_DEFINE_DATA_ITEM 


2? PUSH (LISTEXT = ON) 7? 


*copye cvtsi_code_generator_id 
*copyc cvtti_data_Ittem_attr libutes 


7? POP ?? 
2? PUSH CLIST 22 ON) 2? 


{ cvpeti_ldefine_data_item } 
22 POP 2? 
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PROCEDURE CXREFI] cvet8i_define_data_item ( 


data_fttem_attributes: cvtSi_data_I tem attributes; 
VAR data_item_id: cvt#l_coda_ generator _id);3 


PURPDSEs 


This procedure defines and deseribes a new data Item. A data item 
Is a positionatty independent region in virtual memory fe.9. 4 
CYRIL variabte). If a data item has an [Internal structures the Code 
Generator wilt treat that structure as Inviotable,. 


OROERTNG? 


Fyery data item must be associated with the enclosing _routine within 
which it was dectared in the source language program; exceot that a 
data item which Is declared at the module ftevel with no 

enclosing routine has an enclosing _routine of cve$icnit_lid 
specified. Except for the case of ADA=style separate compilations» 
the enclosing_routine must be previously defined by a call to 
evesi_define_routine. Every data item must reside In a data area. 
Note that data items associated with different enclosing routines 
may be placed in the same data areae The enclosing _ data_area must 
be vreviously defined by a call to cvypti_define data_area. The type 
of the data item must be previously defined by a call to one of the 
Following type definition procedures: cvo8i_define_array_types» 
evpti_define_iInteger_subtypes cvo$i_define_vointer_tyoes 
cvoti_define_proc_pointer_tyoe,s cvp$i_define_range_ types 
evoesi_define_record types or cvosi_define_scatar_type. 


40403 CVPSI_DEFINE_PARAM_AREA 


2? PUSH (LISTEXT = ON) 272 


*copyc cvt$i_code_generator_Id 
*caopye cvtti_param_area_attributes 


22 POP 2? 
2? PUSH (LIST t= ON) ?? 
{ eveti_define_paran_area } 
22 POP 2? 
PROCEDURE [ECXREFI ecvpti_define_oaram_area ( 


oaram_area_attributes: cevtti_oaran_area_attributes; 
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VAR param_area_fid: cvt#i_code_generator_id; 
VAR preceding word id: cvtti_code_generator_id) ; 


PURPOSE: 


This procedure defines and describes a new parameter areae A 
parameter area Is a region in virtual memory where an ordered 
collection of parameter Items Is placed (forming a parameter list). 
The relative tocation within the parameter area of each parameter 
item is predefined; the Code Generator will preserve the item 
ordering aiven by the Hoste Fach distinct routine call or 
declaration in the program must have its own distinct parameter 
ar@ay even for different calls to the same routine; except that. 
there is no associated parameter area for the CVOG Intrinsic 
routines. 


40404 CVPSI_DEFINE_PARAM_TTEM 


27? PUSH (LISTEXT 3 ON) 2? 


*copye cvtti_code_generator_id 
*¥copyc cvtti_param_item_attributes 


22 POP 22 


2? PUSH (LIST 2= ON) 27 
£ ecvosi_define_param_ftem } 
272? PNP 2? 


PROCEDURE [XREF] ecvoticrldefine_param_item {¢ 


param_item_attributes: cvt$t_param_item_attributes3 
VAR param_item_id: ecvtSi_code_generator_id); 


PURPNSEs 


This procedure defines and describes a new narameter iteme A 
parameter item is a region In virtual memory where a parameter list 
entry is placed. Each parameter item must have a physical tayout 
(param_item_format) conforming to one of the fayouts described tn 
Section 52225 of the SIS. 


ORDERING: 
Every actual parameter item must have as its enclosing _routine the 


routine within which the assaclated actual routine call occurs tn 
the source lanauage orograms Fwery formal oaramater item must have 
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as its enctosina_routine the routine with which it Is associated. 
The enclosing _routine must be previously defined by a call to 
cvypesi_define_routine. Every oarameter item must reside In a 
parameter area. The enciosing_paran_area must be oreviousty defined 
hy a call to ecvoti_define_param_area. The tyoe of each fleld of the 
parameter item must he previously defined by a call to ane of the 
following tyoe definition procedures: cvoti_define_array_types 
cvo$i_define_Integer_subtyoes cvoti_define_vnotnter_ types 
cvosiildefine_oroc_pointer_types ecveti_define_range_types 

evoti_ define _record types or cvoti_ define scalar_type. 


40405 CVPEI_DEFINE_ ROUTINE 


22 PUSH CLISTEXT s= ON) 2? 


*cooye evt%i_code_generator_id 
*copyc evtti_name 
*eopye evtti_nesting_routine 


7? POP 2? 


22? PUSH {LIST t= 9N) 2? 
£ cvpe$ivdefine_ routine } 
2? POP 2? 


PROCEDURF ECXREF] cvpti_vdefine_routine {( 


nesting_routine: ecvtti_nesting_routine; 
routine_namet cvt$i_name3 
VAR routine_id?t cvt$ivlcode_generator_id)3 


PURPOSE: 


This procedure defines a new routine (aka. procedures functions or 
entry polnt). 


ORDERING: 


The routine must be described In a subsequent cali to 
cvpsi_define_routine_attributes. Every routine must be assoclated 
with the nesting _routine within which It is statically nested; 
except that a routine at the outermost nesting fevel has an 
nesting _routine of cvc$i_lnit_id specified. Except for the case of 
ADA=-style separate compilationss the nesting_routine must be 
previously defined by a call to eveti_define_routine. 
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4e4e6 CVPSI_DEFINE_ ROUTINE ATTRIBUTES 


40406 CVPSEI_DEFINE_RNUTINE_ ATTRIBUTES 


22 PUSH (LISTEXT t= ON) 22 


*copye evtsivlcode generator _id 
*covve cvtSi_routine_attributes 


72 POP 24 


2? PUSH {LIST t= ON). 2? 
{ evpti_ldefine_routine_attributes } 
27? POP 27? 


PROCEDURE [XREF] cvnti_define_routine_attributes [( 


routine_id: cvtSi_lcodea_generator_id3 
routine_attributes: cevtti_lroutine attributes); 


PURPOSE: 
This orocedura describes a routine. 
ORDERING: 


Tre described routine must be oreviousty defined by a call to 
cveti_ define routine. There must be one cal! to 
evp$i_define_routine_attributes for each call to 
cvetivdefine_routines; thus no two calls to 
cvp$i_define_routine_attributes may specify the same routine_tid. 
The tyoe of every routine which returns a vatue (has the function 
property) must be praviousty defined by a call to one of the 
following type definition srocedures? cevosi_define_array_type,s 
cvoti_ define_tnteger_subtypes cvpti_define_pointer_typas 
cvo$i_define_proc_pointer_types cvosi_ define_range_type>s 
evp$i_ldefine_record_tyne»s or ecvoti_define scalar type. The 
routine_tyoe of routines which do not have the funetion property ts 
specified as ecvc$icntit_id. 
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405 POSITION DEFINITION peogcenures 


Fach position (1f.e. label or tine) referenced in one of the 
postition definition or code emisston procedure calls must have bean 
previousty defined by one of the oosition definition procedure 
calise. 


GeSel CVPST_DEFINE_LABEL 


2? PUSH (LISTEXT ¢2 ON) 2? 


*copye cvtti_code_generator_id 
*copye cvtSi_name 


22 POP 2? 
22? PUSH (LIST 22 ON) 2? 
{ evpsi_define_lahbelt } 
22 POP 2? 
PROCEDURE [CXREF] cvoti_define_label { 


label_namet cvtticname; 
VAR tabel_id: evt$i_code_generator_id)3 


PURPOSES 

This procedure defines a new tabet. 

ORDERING: 

The tabel must be described in a subsequent call to 
cyvpti_define_label_attributes. 


4e502 CVPSI_DEFINE_LABEL_ATTRIBUTES 


22? PUSH CLISTEXT t= ON) 22 


*copyc cyvtSi_code_qenerator_id 
*copye cevtti_fabel_attributes 


2% POP: 2F 


2? PUSH (LIST :# ON) 2? 
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f£ ecvoti_define_tabel_attributes } 
?? POP ?7 


PROCEDURE [TXREF] cvpti_define_labet_attributes { 


fabel_id: evtSi_code_generator_ id; 
labat_attributes: cvtti_label attributes); 


PURPOSE: 

This procedure describes a label. 

ORDERING: 

The described label must be previnousty defined by a call to 
evpsi_define_fabel. There must be one call to 
cypSi_define_lahel_attributes for each call to cvp$i_define_ label; 
thus no two calts to cvo$i_define_label_attributes may specify the 
same tabel_ids. Every label must be associated with the line number 
on which It was defined In the source language program. The 


fine number must be previously defined by a call to 
evpti_define_line. 


4.5.3 CVPST_NEFINE_LINE 


22 PUSH CLISTEXT s= ON) 2? 


*copye cevtti_code_generator_id 
*coove cvt$i_tine_attributes 


2? POP 2? 
22? PUSH (LIST *= ON) ?? 
£ evesi_define line } 
22 POP ?? 
PROCEDURE CXREF] cvpSirdefine_line { 


fine_attributes: cvtBi_lfine_attributes; 
VAR Yine_id: evt$i_code_generator_id)3 


PURPNISE: 


This procedure defines and describes a new source tine, 
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4.6 CODE_EMUSSTION PROCEDURES 


The Host may pass a code sequence to CVCG using the code emission 
procedure calls. Each Instruction that may be placed in the code 
seauence is referred to in terms of that instructionts opcode. Thus 
an "s_add" instruction is one having an opcode of "cvesi_oo_s_add™ 
(scalar numeric add). Every instruction must be associated with the 
line number in the source language orogram which ted to that 
instructtion's emissions The tine number must be previously defined 
by a call to cvpti_vdafine_linea. 


4.601 CVPST_EMIT_DEREF_INSTR 


?? PUSH CLISTEXT 2= ON) 2? 


*Xcopyce cyt#i_code_generator_id 
*copyc cvtti_code_gener ator_oocode 
*copye cvtti_linstruction_attributes 
*copyc evtSi_instruction_operand 


2? POP 2? 


2? PUSH {LIST 2 ON) ?? 
{ evpsi_lemit ideref_instr } 
2? POP ?? 


PROCEDURE CXREF] cvpti_emit_deref_instr ( 
instruction_attributes: evt$i_instruction_attributass 
orerand#1: cvt$i_iInstruction_oper and; 
VAR instruction_id: cvt#i_code_aenerator_id); 

PURPOSES 

This procedure emits a “deref™ (pointer dereference) instruction. 

QRDERING: 

The Instruction operand must be a data item previousty defined by a 

call to cvp$tildefine_data_items or must he the result of a 


previously emitted instruction. The tnstruction_id can be used as 
an operand in subsequent instructions. 
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4.6.2 CVPST_LEMITLUEND_OF_DEBUG_ PACKET 


2? PUSH CLISTEXT z= ON) 2? 
7? POP 72 


22 PUSH CLIST 2= ON) 2? 
{ evosi_emit_end_of_basic block } 
272 PNP 22 


PROCEDURE CXREF] cvp$i_lemit _end_of_debug_packet}3 
PURPOSE: 


This orocedure is needed onty when stylized debug cede is to he 
generated. It Indicates that the end of a debug packet (normattys 
the end of a source lanquage statement) has heen reached, 


ORDERING: 


This orocedure must be catfted at the end of each debug packet after 
all other code emission procedure calts within that packets and 
prior to any code emission procedure calls for tater debug packets. 


40503 CVPSTILEMITLFIELDLREFERENCE 


2? PUSH (TLISTEXT 22 ON) 2? 


*copye cvtti_code_gqenerator_id 
¥copye cevtticlinstruction_attributes 
*copye cvt$i_record_index_list 


272 POP 2? 


27? PUSH (LIST t= ON) ?? 
{C evpsi_emtit field_reference } 
22? POP ?? 


PROCEDURE CXREF] cvoSi_emit_field_ireference ( 


instruction_attributes: cvt$i_linstruction_attributess 
record data_item: cvt$i_code_gener ator_id; 
record _index_ count: integer ; 
record _index_list: “*evt#icrecord_index_ 


list; 
VAR instruction_id: cvt$ivlcode_generator_id)3 
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PURPOSE: 


This procedure emits the instruction necessary to reference a fieid 
within a record or nested record. 


ORDERING: 


The record_data_item must be a data item previousty defined hy a 
call to cvpti_define_data_items or must be the result of a 
previously emitted instruction. The tInstructton_id can be used as 
an operand in subsequent instructions. 


bebes CVPST_EMIT_INSTR_WITH_RESULT 


2? PUSH CLISTEXT t= ON) 2? 


*copye cvtsi_code_generator_id 
Xcopye cvt$i_instruction_attributes 
*¥copye cvt$i_instructlon_operand 
*eooye cvtsi_instr_with_ result 


22? POP ?? 


272? PUSH (LIST 2= ON) ?? 
{ evesi_emit_instr_with_result } 
?2?. POP 2? 


PROCEDURE ECXREFI cvoti_emit_instrowith_result { 


Instruction_attributes: cvt$i_instruction_attributes; 
opcode: cvtti_instr with_result;3 
operand#1l: cvt$i_instruct ion_oner and; 
operand#2: cvtti_instructtion_operands; 
operand#3: cvt$i_instruct lon_operand; 
operand#4: cvtSi_instruction_overand; 
VAR Instruction_id? cvt$i_code_generator_id)$ 


PURPOSES 


This procedure is used for the amission of most Instructions for 
which the Code Generator returns a resuit identifier to the Host. 


QORNERING: 
The instruction operands must be orevious!y defined by a call’ to a 


definition procedures or must be the result of a previousty emitted 
instruction. Unused operands are specified as eveSiv-nit_id. Tha 
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result instruction_id can be used as an operand in subsequent 
Instructions. 


4e6e5 CVPST_EMIT_INSTR_WITHOUT_ESULT 


27? PUSH (LISTEXT s= ON) 7? 


*copye cvtti_code_generator_id 
*copyc cvt$i_instruction_attributes 
*copyc cvtsi_instruction operand 
*copyc cvtSi_instriwithout_result 


27 POP 77 


22 PUSH (LIST 22 ON) ?? 
{ ecvosi_emitlinstrowithout_reasult } 
2? POP 22 


PROCEDURE [CXREF] ecvosi_lemit_instrowithout_result { 


instruction_attributes: evtsi_instruction_attributes; 
opcode: cvt$i_instr_without_result; 

operand#1: ecvtsli_instructlon_oper and; 

operand#?2: cvtsi_instructlion_operand; 

operand#3: cvtti_instruction_opver and; 

operand#4: cvtti_Linstruct lon_ooerand; 

target: evtti_code_generator_id)s3 


PURPOSE: 

This procedure is used for the emission of those instructions for 
which the Code Generator does not return a result [dentifier to the 
Hoste 

NRDERING: 

The instruction operands and taraet must be previousiy defined ey a 
call to a definition orocedures or must be the result of a 


previousty emitted instruction. Unused overands are specified as 
cevc$i_nit_id. 


4e606 CVPSI_LEMIT_LABEL_LIST 


2? PUSH (LISTEXT t= ON) 22 
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*copye cvtti_code_generator_id 
*copye cvt$i_code_generator_id_list 
*copye cvtticinstruction_attributes 


7? POP 7% 
27? PUSH (LIST %# ON) 72? 


{ evosi_emit_ltabel_list } 
2? POP 2? 


PROCEDURE CXREF] ecvoti_emit tabel Vist (. 
instruction_attributes: cvtti_instruction_attributes3 
flabel_count: integer; 
fabel_list: “*cevt$i_code_gener ator_id_tist;3 

VAR list_id: evtti_code_generator_td)3 
PURPDSE: 
This procedure emits a "p_!_flist™ Cfahbel fist) instruction. 
NROERING: 
Fach label in the tist must be oreviousty defined by a call to 


cvoSi_defina_label. The fist_td can be used as an operand in 
subsequent instructions. 


4.607 CVPEI_LEMIT_LOPERAND_LIST 


2? PUSH (LISTEXT t= ON) 2? 


*copye cvtti_code_generator_id 
*copye cvt$i_instructicn_attributes 
*copye evt$i_instruction_operand tist 


27 PEP 77 


22 PUSH (LIST 22 ON) ?? 
{ cvost_emit_opoerand_tist } 
272 POP 2? 


PROCEDURE [XREF] cvesilemit_overand_ftist { 


Instruction_attributes: cvtSi_linstruction_attributess 
operand count? integer 3 
operand fist: “cvtSi_instruction_operand_Iist3 

VAR LTistlid: cevt$i_code_generator_id); 
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PURPOSE: 
This procedure amits a “p_list™ (operand tist) instruction. 


NRDERING: 


Fach orerand In the fist must be oreviousty defined by a call to a 
definition poroceduras or must be the result of a previous!y emitted 
instruction. The tist_id can be used as an operand In subseauent 
instructions. 
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407 QUERY PROCEDURES 


The Host may obtain certain Information from CVfG for use tn 
ereation of a reference map and/or of a (debug) symbol! table. This 
Information may only be querlted subsequent to a call to 
evosi_begin_generation. 


SeoTeol CVYPST_QUERY_LOCATION 


22? PUSH CLISTEXT 22 ON) 2? 


*copye cvt$i_code_generator_id 
*copye cvtSi_location 


2? POD 2? 
22 PUSH (LIST t= ON) 2? 
{ evesivlauery_focation } 
27? PoP 27? 
PROCEDURE CXREF] cwyoti_query_tocation{ 


object_id: cvtti_cede_generator_id; 
VAR location: evt$Si_location)$ 


PURPOSE: 


This procedure returns the location (if any) associated with a 
constants objects» tabels or record field. 


ORMER ING? 

A constant must be previously defined by a call to a constant 
definitton procedure. An object must be orevious!ty defined by a 
call to an object definition procedure. A ftabel must he oereviously 
defined by a cali to cvpti_define_fabel. A racord field must be 


previnuslty Identified as the result of a call to 
cvpti_emit field reference. 


4eTe2 CVPST_QUERY_ ROUTINE LENGTH 


22 PUSH C{LISTEXT = ON) 772 


*copyc cvtti_code_ gener ator_id 
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*keopye evtti_size_in_ bytes 
22? POP ?? 
7? PUSH {LIST 22 ON) ?? 
{ evpsi_auery_routine_fength } 
?? POP 2? 
PROCEDURE [XREF] cvpSi_aquery_routine_length{ 


routine_id: ecvtSi_code_generator_id; 
VAR length: cvt$i_size_in bytes): 


PURPOSE: 

This procedure returns the byte ltenath associated with a routine 
which has a 'local's ‘main'ts or 'xdcl! routine_scope. If this Is an 
alternate entry point of a multiotle antry point routines then the 
length Is that associated with the primary entry vooint,. 

NRDERING?: 


The routine must be previously defined hy a call to 
evosi_define_routine. 
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408 TRANSMISSION PROCEDURES 


CVCG wlll place a (debuad IIne table In the binary file 
automatically untess cvcSiclno_debug_tine_table is tnecluded in the 
generation restrictions field of the code_generator_attributes 
passed to cyp$i_cbegin module. With the transmission procedures the 
Host may direct CVCG to place additional information directly into 
the binary file. The Host is reasponsibie for the contents and 
structure of this informations ft will not be altered by CVCG except 
as described helow for the (debug) symbol table. 


4.8.1 CVPST_TRANSMIT_LLOADER_ TABLE 


2? PUSH (CLISTEXT t= ON) 77? 
*¥copye cvt$i_loader_table 
*conpye cvtti_size in bytes 

272? POP ?? 


22 PUSH (LIST 32= ON) 2? 
{ evpsi_transmit_loader_tablte } 
?2? POP 2? 


PROCEDURE CXREFI cvoti_transmit_toader_table { 


loader_tables “cvt$i_loader_table;3 
foader_table_fength: cvtti_stze_in_bytes); 


PURPOSE? 


This procedure transmits a loader table directiy to the binary file. 
It should he used for atl Host generated toader tables except the 
{debug) symbol table. 


4.802 CVPSI_TRANSMIT_SYMBOL_TARLE 


2? PUSH CLISTEXT ¢= ON) 7? 
*cooye cvtti_toader_table 
*ecopye cvtti_lsize_tinubytes 

2? POP 2? 


22? PUSH (LIST %2 ON) 2? 
€{ ecvp$i_transmit usynbol_table } 
27? POP ?? 
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PROCEDURE CXREFI] cvpSi_transmitusymbol_ table { 


loader_table: “cvtti_loader_tablie; 
toader_table_length: cvtticstze_in_ bytes); 


PURPOSE: 


This procedure transmits a (debuq) symbo! table directly to the 
binary file. The tine table will be Inserted into the symbol table 
when the target system is a CYRER 200. Otherwise the symbol table 
is transmitted unchanged. 


ORDERING? 


If ecvosi_transmitusymbol_table Is calleds then 
eveti_lno_dehug_symbolf_table must not be Included in the 
aqeneration_restrictions field of the code_generator_attributes 
passed to cvpti_begin_ module. If cvos$i_ltransmit_symbol_table is not 
catleds then cvecsi_no_debug_sysbol_table must be Included In the 
generation restrictions field of the code_generator attributes 
passed to cvp$i_begin_module,. 
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AleO STACK FRAME LAYOUT 


Fach stack frame on the system stack consists of two sections: a 
fixed part and a variabte part. The fixed part of the stack frame 
is altocated memory by CVCG at somoltle time. The Code Generator has 
full contro! of the memory layout of this fixed part. The variable 
part of the stack frame Is allocated memory dynamically by the 
comp}led program at execution time. The Code Generator has no 
contro! of the memory tayout of this varlabte part. Note that the 
Code Generator may allocate memory in the varlabte part 
independently of Host directives to allocate memory in the vartabte 
part. Thus consecutive Host allocations of memory In the vartfablie 
oart are not guaranteed to allocate consecutive tocations of memory. 
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Al.1 CYBER 180 STACK FRAME DIAGRAM 


A stack frame on the CYBER 186 systams as ganerated by CVCGs can ba 
iftustrated as follows. 


{orecedina frames} 


2 
e 


ee om 


Ce ee 


SURV AsV cee ast wrT wre ee eszenzaz ! {Czenarssan9az+ 
+60 Reserved Por NOS/VE use t H 
+1 = =«f Parameter List Polnter ! : 
+2 #3 Reserved for Host use ! ! 
+3 #¢ Raserved for future use H ’ 
+4 1 Disolay ’ Part : 
$ 3 3 ' 
’ ie TE TM Tb wh i Oe eel wD Ee FOES eA eee i i ae ED A eS 3 See Eb EU A WE ! | 
+j ! Stack Variables Area ! H 
3 : % ! 
+k  ! Register Spild Area : H 
2 3 t q 
+m! Dynanic Space ’ ! 
3 2 : VYariablte ! 
+n! Register Save Area q ’ 
3 2 : ! 
{eewerenere se neceezreanexaeezeca f Ceuegnasaneas + 
3 3 : 
} {succeeding frames) ! 


Associated with each orocedure are the following registers. 


AO The Dynamic Space Pointer contains the address of the next 
available word on the stack. 

Al The Current Stack Frame Pointer contains the address of the 
first word on the stack for the given orocedure,. 

A2 The Previous Save Area Potnter contains thea address on the 
stack of the calling orocedure's Register Save Area. 

A3 The Rinding Section Pointer contains the address of the 
binding section. 

AS The Parameter List Poltlnters ueon entry to a procedures 
contains the address of the first word of the parameter list. 
The CVCS stores this address fn the Parameter List Potnter of 
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Al.1.1 
+E 
+1 


eZ 


+3 


+4 


+] 
+k 


+m 


+n 


the called procedure'’s stack frame. Subsequent to storing 
AS,» CVCG may reuse A& for other purposes during execution of 
the rest of the orocedure. 


CYBER 180 STACK FRAME 


The word at wordeoffset 0 from the beginnina of each stack, 
frame Is reserved by CVCG for use by the NOS/VE Operatina 
Systeme 

The word at word-offset 1 from the beginning of each stack 
Frame Is used by CVCG to contain the Parameter List PolInters 
left justified. 

The word at word-offset 2 from the beginning of each stack 
frame ts reserved by CVvVCG for use by the Host lanquage. 

The word at word-offset 3 from the beginning of each stack 
frame is reserved by CVCG for future use. No code should 
define or reference It. 

The words starting at word-offset 4 from the beginning of aach 
stack frame are used by CVCG to contain the static displays 
consisting of pointers which enable a nested procedure to 
access variables declared in its enclosing procedures. Tha 
size of the display denends on the nesting ftevel. There fs 
one word in the display for each enctosing procedure; the 
word contains the Current Stack Frame address of the 
enclosing orocedures left Justified. 

The words immediately following the Disolay In each stack 
frame contain space for automatic variables and workspaces 
having a fixed ftength at compile tine. The size and fayout 
of this space Is determined by CVCG. 

The words immediately following the Stack Variables Area of 
mack stack Frame contain workspace used by CVCG to hotd the 
contents of hardware registers which must be spltted at 
execution time. | 

The Dynamic Space in each stack frame contains space for 
variables and workspaces having an unknown tength at compile 
time. 

The Register Save Area is created and used by the hardware 
CALL and RETURN instructionss for saving and restoring 
registers across a procedure call. 
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Al.2 CYBER 200 STACK FRAME DIAGRAM 


A stack frame on the CYBER 200 systems as generated by CVCG»s can be 
fiflustrated as follows. 


: {preceding frames) y 
Peer erst IeE BAT Bower stzesezcwaerz22 1 KCzaszaenzaxezn + 
+90 ! Register Save Area ! ! 
3 Hy 2 : 
#256 ! Parameter List Pointer : ! 
#257 Reserved for Host use q q 
+28 ! Reserved for future use : 
4259 } Display ! Part ! 
3 3 3 : 
+j ! Stack Varftabies Area q H 
3 z 3 q 
tk ! Register Spill! Area : ! 
: $ ’ ’ 
+m! Dynamic Space ’ Variable ! 
2 3 : Part ! 
tenes ersczr ers ecerseeeecexseseeses ! Czenrwressren4 
3 3 q 
L ({succeedina frames) 3 


Associated with each procedure are the following registers. 


#18 The Dynamic Space Pointer {DSP) contains the address of the 
next avallable even-word on the stack. 

#1C The Current Stack Frame (CSF) contains the address of the 
first word on the stack for the alven procedure. 

#10 The Previous Save Area (PSA) contains the address on the stack 
of the calling procedure's Register Save Area. 

#17 The Parameter List Pointers upon entry to a procedures 
contains the address of the first word of the parameter ‘list. 
The CVCG stores this address in the Parameter List Pointer of 
the called procedure's stack frame. Subsequent to storing 
Register #175 CVCG may reuse #17 for other purposes during 
execution of the rest of the procedure. 
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Ale2e1 CYBRE2 200 STACK FRAME 


+0 The Register Save Area is created and used by instructions 
generated by CVCG»s for saving and restoring ragisters across 
a procedure call. 

+256 The word at word-offset 256 from the beginning of each stack 
frame is used by CVCG to contain the Parameter List Poltnters 
right Justified. 

+257 The word at word-offset 257 from the beainning of each stack 
frame is reserved by CVCG for use by the Host language. 

#258 The word at word-offset 258 from the beginning of each stack 
frame Is resarved by CVCG for future use. No code should 
define or reference I[t. 

+259 The words starting at word-offset 259 from the beginning of 
each stack frame are used by CVCG to contain the static 
disptays consistina of pointers which eanable a nested 
procedure to access varfables dectared in its enclosing 
procedures. The size of the display deoends on the nesting 
fevel. Thera is one word in the disptay for each enclosing 
procedures the word contains the Current Stack Frame address 
of the enclosing procedures right justified. 

+j The words immediatety foltfowing the Dispiay in each stack 
frame contain space for automatic variables and workspaces 
having a fixed length at compile time. The stze and tayout 
of this space Is determined by CVCG. 

+k The words immediately following the Stack Variables Area of 
each stack frame contain workspace used by CVCG to hold the 
contents of hardware registers which must be spilled at 
execution time. 

+m The Oynamic Space In each stack frame contains space for 
variabies and workspaces having an unknown fength at comoiie 
time, 
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B1l.0 INTRINSIC SOUTINE USAGE 


CVvVCG supports a large number of intrinsic routiness i.e. routines 
(functionss subroutiness proceduress etce) known to the Code 
Generatore Inline code will be generated for most of these 
reutines. The rest of these wil! be generated as calls to Jibrary 
routines. The Host may request that the parameter tist for a 
library call be placed In memory rather than in reaisters via the 
gqeneration_restrictions field of the code _generator_attributes 
parameter of the cvp$i_lbegin module call. 


In order for the appropriate tibrary routines to be oresent at 
execution times the Host must Include the math tibrery (miftttbrary 
on the CYBER 180) In the tibrary_tist field of the 
code_generator_attributes parameter of the cvpfi_begin module cail, 
If the Host references etther of the code generator intrinsics 
cevcticlsfunc_indey or cveS$icvfunc_indexs then the Host must also 
include the Fortran UJtbrary (flfStlibrary on the CYBER 180) in the 
library_list. 
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Most Intrinsic names (such as A8S or DOTPRODUCT) are really generic 
names represeantina a whole family of separates soecifics routines. 
CVCS provides a differant IntrinsIic_id for each specific Intrinsic 
routine it supports. All routine identifiers start with "cvc$i_z7_" 
where "2%" js one of? "mceall™s» "mfunc™s "rfunc™s "“scali™s "sfuncs 
"toalil"s “"tfunc"s “"yvycali™s or "vfune“™. Many routine Identifiers 
also have a suffix to help identify which specific routine is of 
interest. 


B2e1 IDENTIFIERS CVCSI MCCALL sae 


These are used for miscellaneous routines which are implemented as 
subroutine calise If they are source tanguage functions then the 
function result appears as the first subroutine arguments and the 
nith function argument appears as subroutine argument n#1. These 
routines are raferenced in an instruction seaquence by use of the 
"cvctl_op_ical!”™ code generator oncende: except for the "ranf* 
function with an array results which uses the "ceve$i_op_v_ranf*® 
opendes and for the *"ranget™ and "ranset” subroutiness which use the 
"evesi_oplranf™ opcodese 


82.2. IDENTIFIERS CVC$I_MEUNC see 


These are used for miscellaneous functions having 2@ non-character 
scalar result. They are referenced In an Instruction sequence by 
use of the “cvcti_oo_tifunc™ code generator opcodes except for the 
“ranf™ functions which uses the “cvctl_op_s _ranf™ oocode. 


B203 IDENTIFIERS C¥CST_REUNC see 


These are used for array reduction functions which return a scalar 
result. These functions are all well-behaved (le. have no side 
effects). They are referenced in an instruction sequence by use of 
the “cvc#ti_op_v_ifunc ir™ code generator onocode,. 
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B2.4 IDENTIFIERS CVCSI_SCALL sae 


These are used for scatar functions which return a character scalar 
resuite Note that these functions are Imolemented as subroutine 
calls. The function result apoears as the first subroutine 
arguments and the nit th function argument appears as subroutine 
argument n4#1le For each 'scatt! function there Is a corresponding. 
*‘ycall® function. These functions are all well-behaved (fe. have 
no side effects). They are referenced In an instruction seaquence by 
use of the “cvcfi_op_ticall™ code generator opcodes 


B2.5 IDENTIEIESS CVC$I_SEUNC 20a 


These are used for scalar functions which return a non-character 
scalar result. For each 'sfunc! function there {fs a corresponding 
'vfunc’ function. These functions are all well-behaved (ie. have 
no side effects). They are referenced in an instruction sequence by 
use of the “cvcti_Lop_s_ifunc™ ende generator onocodeae 


8206 IDENTIFIERS CVCST_ TALL see 


These are used for those transformational functions which return a 
character array rasuits and for those which are array reduction 
functions over a dimension which is not known at compile-time. A 
transformational function is a function which In general can not be 
evaluated Independentty for each array etfement. Note that these 
functions are Implemented as subroutine calls. The function result 
appears as the first subroutine arguments and the ntth function 
araqument aopnears as subroutine argument n#1. These functions ara 
all well-behaved (fee have no side effects). They are referenced 
in an instruction sequence by use of the “ecveti_oo_icalt!"™ code 
generator oncodese 


—-B267 TOENTIFIERS CVCSI_TEUNC see 


These are used for thos transformational functions which return a 
non-character array result (including array reduction functions with 
an array results provided that the reduction dimension is a 
compite-time constant). <A transformational function ts a function 
which in general can not be evaluated Indaepandentliy for each array 
element. These functions are all well-behaved (ie. have no side 
effects). They are referenced in an instruction sequence by use of 
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the “eveS$i_op_ifunc™ code generator opcode. 
B2e8 IDENTIFIERS CVCSI_VCALL san 


These are used for non-scalar etemental functions which return a 
character array result. A non-scalar elemental function Is a 
function with array arguments and an array result which can be 
evaluated indevendentiy for each array eiament. Note that these 
functions are Imptemented as subroutine catts. The function result 
apoears as the first subroutine arguments and the nth function 
argument appears as subroutine argument n+l. For each tvecallt 
function there Is a corresponding 'scallt’! function. These functions 
are all well-behaved (ia. have no side effects). They are 
referanced In an Instruction sequence by usa of the “"cvesi_opo_icali®™ 
code generator opcode, 


B2e9 IDENTIFIERS _CVCSI_VEUNC sas 


These are used for non-scalar elemental functions which return a 
non-character array resulte <A non=-scalar elemental function Is a 
function with array arguments and an array result which can be 
eavaluated indevoendentty for each array element. For each 'vfunc! 
function there Is a corresoondina 'sfunc! functlione These functions 
are all well-behaved (ie. havea no side effects). They are 
referenced in an instruction sequence by use of the 
"eveti_op_v_ifunc™ code generator opcode. 


B2.10 JDENTIEIER SUFFIXES 


bsians | This tndicates that some of the operands and/or result 
have a value corresoonding to the code generator type of 
cvt$S$i_tynoe_boolean sign. 


hO1: This tndicates that some of the operands and/or result 
~have a value corresoonding to the code generator type of 
evt$Si_tyoe_bootean_O_l. 


char: This indicates that some of the operands and/or result 
have a vatue correasponding to the code generator tyoe of 
cvt&i_ltype_char ustring. 


ch 4? ‘This Indteates that some of the operands and/or result 
have a vatue corresponding to the code generator type of 
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cvtfti_type _complex_64. 
c1283 This Indicates that some of the operands and/or result 


have a vwatue corresponding to the code generator type of 
cevt$ivltype_complex 128. 


c2568 This Indicates that some of the operands and/or result 
have a value corresponding to the code generator type of 
cvtS$i_type_comptex 254. 


{32:3 This indicates that some of the operands and/or result 
have a valiue corresoonding to the code generator type of 
evt$Si_typa_iInteger_32. 


1642. This tndicates that some of the operands and/or result 
have a value corresponding to the code saenerator type of 
evtsi_type_integer_64. 


r323 This indicates that some of the operands and/or result 
have a watue corresponding to the code generator type of 
cvt$S$i_type_reali_32. 

r 643 This indicates that some of the operands and/or result 
have a value correspondina te the code generator type of 
cvtSi_type_real_64. 

r128% This Indicates that some of the operands and/or result 


have a walue corresvonding to the code generator type of 
evtS$i_type_reali_128. 


lbit: This Indicates that the operands and/or resutt have a 
fength of 1 bite 


Bhit: This Indicates that the operands and/or result have a 
lenath of & bits. 


14hits This Indicates that the operands and/or result have a 
length of 16 bits. 


32?bit: This indicates that the operands and/or result have a 
fength of 32 bits. 


64bits This Indicates that the ovnerands and/or resuit have a 
fength of 64 bits. 


128bits This indicates that the operands and/or resutt have a 
fength of 128 bits. 


collated: This indicates that the operation uses a character 
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B2.0 INTRINSIC ROUTINE NAMING CONVENTIONS 
B2.10 IDENTIFIER SUFFIXES 
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collation table. 
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83.0 INTRINSIC SOUTINE DEFINITIONS 


Most routines correspond to FORTRAN expression operators or to 
FORTRAN Intrinsic routines (the specific version if there Is both a 
soecific and a generic version with the same name) as defined in the 
Cn¢ Standard FORTRAN Language Specification. A few routines 
correspond to ADA operators as defined in the Military Standard for 
the ADA Programming Languages or to BASIC routines as defined in the 
Virtual BASIC External Reference Specification; or te CYBIL 
intrinsic routines as defined In the CYBIL Language Specification; 
or to PASCAL predefined routines as defined tn the PASCAL User 
Manual and Report by Jensen and Wirth. Other miscellaneous routines 
are provided as needed. 


The order of arguments Is that defined for the vositional (rather 
than keyword) form of the routine. For binary operatorss the 
leftmost ovoerand corresponds to the first argument. 


The number of arguments Cexctuding function results which are 
Imofemented as subroutine arguments) Is that defined In the 
appropriate ltanguage specifications with the following exceotions? . 


-~ routines listed below with a sepecifled argument count. 

- routines where an exception is specifically noted below. 

~ routines having the 'cottated!' Identifier suffix; these 
routines have one additional araument (pnsitionalty the tast) 
which Is a 256-byte collation table. 


Broadcast scatar arguments may be substituted for array arguments in 
the Following cases: 


- any ones but not boths arguments of a none-scatar elemental 
function having two arguments (excluding cotfation table), 

- any one or twos but not all threes arguments of a non-scalar 
elemental function having three arguments Cexcluding 
collation table). 

- any ones twos or threes but not all fours arguments of a 
non-scalar elemental function having four arguments 
{excluding collation table). 

- the MASK argument of the following array reduction functions: 
maxvals minvals products sum. [f this argument Is a 
hroadcast scalars it must also be a compife time constant. 

~ the first argument of the transformational function: diagonal. 

- the third argument of the transformational function: unpack. 
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B4e0 CVTZI_LINTRINSIC_1D 


R4.0 CVTST_INTSINSIC 10 


272 PUSH CLISTEXT == ON) 2? 
2? POP 2? 


2? PUSH (LIST := ON) 2? 
€{ evt$i_intrinsic id } 
7? PNP 22 


272? FMT {FORMAT 3 OFF) 2? 


The following bist inctudes all those intrinsic routines wubich are 
expected to be supported by the code generator in its first few 
releases» In support of the ANDAs BASTCs Cs COBOL» CYBILs FORTRANs and 
PASCAL languages. Additional routines will be Included for supoort if 
and when thelr need is Identified. Not all of the listed routines will 
he supported by the first retease of the code generatore Each routine 
name In the list Is followed by one of the following characters» 
indicating in which code generator release it is expected to first he 
supported. : 


1 = To be supported In the first code generator release (for CDC FORTRAN 
on the CYBER 180s with a restricted set of array intrinsics). 
2 =~ To be supported in the second code generator release (for COC FORTRAN 
on both the CYBER 180 and CYBER 200). 
To be supported In an early code generator release {for CDC FORTRAN 
on hoth machine fitness with a full set of array intrinsics). 
A - To be supported for the initial ADA and CY3IL releases. 
R = To be supported for the Inittal 3ASIC release. 
C - To be supported for the Initial CYBIL retease (see also *A'),. 
F —- To be supported for a future retease of COC FORTRAN with extensions 
for new source data types Including: c64s ¢256% and 132. 
P = To he supported for the Initial PASCAL release. 
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TYPE ! 
cvt$i_Ltintrinsic lid = ( 
cvc$}i_non_intrinsic»s (1: -This fs used for non-intrinsic routines- 
cves$i_mealt_current_stack_framesfAs See CYRIL? current stack _ frame 
cycti_mcall_previous_save_areas {At See CYRIL? #previous_save_ares 
cevecticmcalivranfs {13 See FORTRAN: ranf -See Nota 2- 
evcsi_cmcalt_ranget»s TB: See FORTRAN? ranget “See Note 3=- 
cvc$ivlmcall_ransets {B: See FORTRAN? ranset “See Note 3- 
cvcti_cmecalluscan_bol» {C3 See CYRIL: #scan ~See Note 5- 
cvesicmecall_ scan_bsian» {C: See CYBIL: #scan -See Note 5= 


evesi_lmfunc_ranfs {12 See FORTRAN? ranf ~See Note 2= 
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evesicrfunclall_ _bOl»s {23 See FORTRAN: al] (one ara» 
evesicrfunc_alt_bsiaqns 1: See FORTRAN: al! {one ara» 
evctilrfunc_any_bOl>» {23 See FORTRAN? = any {one aras 
evetiorfunc lany_bsigny»s {1: See FORTRAN: any (one ara» 
evcti_-rfunc_count_lbit» {Ps See PASCAL? card 
evceticrfunc count_bOl1>s {2:2 See FORTRAN? count {one aras 
eveticrfunc_count lbsigns {12 See FORTRAN: count {one args 
eveticrfunc_dotproduct_cl28> {13 See FORTRAN: dotproduct 
evesicrfunc _dotproduct_ c256» fF: See FORTRAN: dotproduct 
eveficrfunc_dotoroduct_c64»s {Fs See FORTRAN: dotproduct 
evesivlrfunc _dotproduct_132>» {Fs See FORTRAN: dotoroduct 
evesiclrfunc_dotproduct_164» {13 See FORTRAN: dotproduct 
evetilrfune_dotproduct_r128>» {1: See FORTRAN? dotproduct 
eveti_rfune_dotproduct_ 32 {23 See FORTRAN: dotoroduct 
evesilrfunc_ dotproduct_r64» {1:3 See FORTRAN: dotproduct 
eveticrfunc_maxval_i32_b01>s {F: See FORTRANS maxval {two args» 
evefticr func _maxval_i32_bsigns {F: See FORTRAN? maxval (two args» 
evetivcrfunc _maxval 164 _b01>» £3: See FORTRAN: maxval (two args» 
cycti_rfunc_maxval 164 _bsigqny»s £33 See FORTRAN: maxval (two arass 
evesSi-rfunc_maxval_ ri128_ b01>» {3:3 See FORTRAN: maxval (two args» 
evyeticrfunc _maxval_rl28_bstlans £3: See FORTRAN: maxval (two argss 
evesSivtrfunc maexval or32_b0l1s {32 See FORTRAN: maxval (two args» 
evesicrfune_maxval_r32_bsign»s (3: See FORTRAN: maxvat (two args» 
eveti rfunc_maxvat_r64_b01>» £32 See FORTRAN: maxval (two argss 
evyce$iorfunc_maxval_r64_bsign» {323 Sae FORTRAN? maxval {two args» 
evesi_lrfunec_minval_132_b01>5 {Fe See FORTRAN: minval (two arass 
eve$iurfunc_minval_b32_bsign»s {F: See FORTRAN: minval (two args» 
evesiirfunc_minval_164_b01>5 £33 See FORTRAN minval (two args» 
eveticrfunc_minval f64_hsigns £33 See FORTRAN? minvat {two arass 
eveti_rfunc_minval_ ri28_bOls {32 See FORTRAN: minval (two args» 
evesicrfunc _minval_rl28_bsiqns £33 See FORTRAN: minvat (two args,» 
evesicrfunc_minval _r32_b0l1>» {3° See FORTRAN: minval (two araqss 
evesi_rfunec_minval_r32_bsians (3: See FORTRAN: minval (two args»r 
evesii-rfunc _minval_r64_b01>» {32 See FORTRAN: minval (two args» 
evesicrfunc_minveal r64_bsiqn»s £33 See FORTRAN: minval {two args» 
cevesicrfunc_product_cl28_b01>» {33 See FORTRAN: product (two args» 
eves$i_rfunc_oroduct_cl28_bsigns (33 See FORTRANS product (two args» 
eveticrfunc _product_¢256_b01>» {Fs See FORTRAN: product (two aras» 
cvc$i_rfunc_product_c256_bslans {F: See FORTRAN? product (two args,» 
eve$i_crfunc_product_c64_b01»s fF: See FORTRAN: preduct (two args» 
cvcesi_lrfunc_product_¢c64_bsigns {F?: See FORTRAN: product (two argss 
cyvcti_rfunc_product_i32_b01>» CF: See FORTRAN: product (two args» 
evesi_rfune_product_i32_bsiaqns {F: See FORTRAN: product (two args» 
cevesiclrfunc product 164_b01» {3: See FORTRAN: oroduct (two args» 
evesicrfunc_product_l64_bsigns {3:3 See FORTRAN: product (two arasy» 
evesi rfunc_product_r128_b0O1>» (3: See FORTRAN? product (two argss 
ecvcti_rfunc_ product _rl28_bsigqns €32 See FORTRAN: product (two arass 
cvcticrfunc_product r32_b01>» (3: See FORTRAN: product (two argss 
cevesicrfunc product _r32_bsiqns £3: See FORTRAN: product (two args» 
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evc$i_rfunc product _r64_b01> {3% See FORTRAN: product (two args,» DIM) 
evyesSi_rfunc_product_ré4_bstgns £32 See FORTRAN: product {two args» no 91M) 
evctiiurfunc_sum clZ28_bO1»s {23 See FORTRAN? sum {two args» no DIM) 
evesticr func _sum cl28_bsigns {13 See FORTRAN? sum (two args» no DIM) 
eveticrfunc sum c256_b01>» CF: See FORTRAN? sum {two argss no DIM). 
evesiirfune_ sum_c256_bsigns {F2: Sea FORTRANS sum {two args» no DIM). 
evesi_rfunc_sum_c64_b01>» {Ft See FORTRAN? sum (two args» no DIM) 
evesiir func _sum_¢c64_bsiqn» {F2 See FORTRAN: sum {two args» no DIM) 
eveSi_rfunc_sum_i32_h01>» {F: See FORTRAN: sum {two argss no DIM) 
evcsi_ rfunc_sum_132_bsiaqns {F: See FORTRAN? sum (two argss no NIM) 
eveticrfunc sunm_1464_b01>» {23 See FORTRAN: sum {two args» no DIM). 
evesi_rfune_sum_'64_bsiaqns {1: See FORTRAN: sum (two args» no DIM) 
evesiilrfunc _sum_r128_b01» {2: See FORTRAN? sum (two argss no DIM) 
evesilrfunc usum_rl28_bslans {1:2 See FORTRAN: sum {two argss no DIM) 
evetivlrfunec sum r32_b01s {23 See FORTRANS sum (two aragss no DIM) 
evetivlrfunc_sum_ur32_bsianys {2: See FORTRAN? sum (two argss no DIM) 
eveti_rfunc_sum_r646_b01> (2: See FORTRAN: sum (two arass no DIM) 
cveticrfuncusum_r64_ bsigns {1? See FORTRAN? sum (two args»s no DIM) 
cyc$i_scall_chars £1: See FORTRAN: char (FIXED collation) 
evesi_scall_ichar_collateds 1: See FORTRAN: char (USER collation) 
evc$iv-scall merge char_bOl» {2% See FORTRANS merge 
evesSi_scall_ marge _char_bsigqn»s {13 See FORTRAN: merge 
evesi_sfunc_abs>» (1: See FORTRAN: abs 
cevcti_sfunc_acos»s {1: See FORTRAN? acos 
evesicsfunc_aimags {1: See FORTRAN: almag 
cvesti_sfunc_aints 1? See FORTRAN: aint 
cvc$i_sfunc_alogs {1: See FORTRAN: alog 
cvcti_sfunc_atogl10»s fl? See FORTRAN: atog10 
ecycsi_sfunc_amaxO>» €{12 See FORTRAN: amaxd (two argos) 
cvcti_sfunc_amaxls {1:2 See FORTRANS amaxil (two args) 
cyc$i_sfunc_aminds {13 See FORTRAN: amino (two aras) 
evesiclsfunec_aminls £13 See FORTRAN: amini (two args) 
evesti_isfunc_amods {12 Sea FORTRAN? amod 
eveti_sfunc_and_lbit» {12 See FORTRAN: and {two args»s bit) 
evesi_lsfunc_and_64bI ts (12? See FORTRAN: and {two args» boolesn) 
evesi_sfunc_anints C1: See FORTRAN: = anint 
cyctsi_sfunc_asInys {12 See FORTRAN: asin 
cvcSi_sfunc_atans {1:3 See FORTRAN? = atan 
evesi_sfunc_atan2» £13 See FORTRAN: atan2 
evesSi_sfunc_atanh»s £13 See FORTRAN: atanh 
cyc$ivlsfunc_bool_of_char>» {1:3 See FORTRAN: bool (character araq onty) 
evceti_sfunc_btol_bdl»s (2? See FORTRAN? btol 
evesi_isfunec_btol_bsigns {1:3 See FORTRANs btol 


cvcti_sfunce_cl28_to_cl28_powears {12 See FORTRAN: ¢#** operator 
cvceftiisfunc_cl28_to_c256_noowers {F? See FORTRAN? '** operator 
evesi_sfunc _cl28_to_c6h4_ powers fF: See FORTRAN: '*** operator 
eve$icsfune_cl2B_to_t32_ power, fF? See FORTRAN: '*#** operator 
evesti_sfunc_cl28_to_i64 powers £1: See FORTRAN: '*** gperator 
eveticsfunc_cl28_to_rl28_pawers {£12 See FORTRAN: kk! operator 
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eveSti.sfunec_cl28_to_r32_powers (232 See FORTRAN: '**" operator 
eveticsfuncicl28_to_r64_pnower,s, (1% See FORTRAN: #*** operator 
eveti_lsfunc_¢c256_to_cl28_powars {F2 See FORTRAN: x! gparator 
evesi-sfune_c256_to_¢256_powers {Fs See FORTRAN: ¢t#*! operator 
cvc3icsfunc_c256_to_ch4_sower,s {F? See FORTRAN: '*#** operator 
eveti_sfunc_¢256_to_i32_o0wers {F2 See FORTRAN: '**" operator 
ceveti_lsfunc_¢c256_to_i44 powers {[F2? See FORTRAN: &t#** operator 
eveti_sfunec_c25&_ to_r128_powers {F2 See FORTRAN: '#** operator 
evycsi_sfunc_c256_to_r32_powers fF? See FORTRAN: '#*! operator 
evesicsfunc_c256_to_r54_powers {F: See FORTRAN: '##** operator 
eveti_sfunc_c64_to_cl28_powers {F2 See FORTRANS '**** operator 
evcesiclsfunc_c64_to_c256_powers f(F2 See FORTRAN: '*** operator 
evesi_sfunc_c64_to_c64_powers {Fs Sea FORTRAN: '%*** operator 
evesi_isfunc_c64_to_13?2_o0wers {F: See FORTRAN? %¢**? operator 
eveti_sfunc_c64_to_i64_power » fF: See FORTRAN: '**"* operator 
cyesicsfunc_c44_to_rl28_powear, {F2 See FORTRAN? *#** operator 
evesiusfunc_c64_to_r32_powner » {Fs See FORTRAN: ‘%#? operator 
cveti_lsfunc_c64_to_r64_powers {Fe See FORTRANS 'kk"! operator 


cvc$losfunc cabs» {12 See FORTRAN? cabs 

evesivlsfunc _ccoss {12 See FORTRAN: ccos 
evesi_sfunc_cdabs» {F2 See FORTRAN: cdabs (abs for 
cvc$i_lsfunc cdcos,s fF: See FORTRAN: ecdceos {cos for 
cvcesSiclsfunce_cdexps {F3: See FORTRAN: cdexp exp for 
evesSiicsfunc _cdiogs {F2: See FORTRAN: cdlog (fog for 
eveti.isfune_cdsins {F3: See FORTRAN: cdsin {sin for 
evcsi_sfunc_cdsarts CF? See FORTRAN: ecdsart (sart for 
cvesi_isfunc_cel ls {B: See BASIC: ceit {r64 ara 
evesi_sfunc_cexps {1:2 See FORTRAN: cexp 

cvycticsfunc uchabs,» {Fs See FORTRAN: chabs {abs for 
cvyc$!losfunc_chcoss {F: See FORTRAN: cheos (cos for 
cycticrsfunc_chexns {F3 See FORTRAN: chexp {exo for 
cvesi_sfunc_chtiogs fF: See FORTRAN: chiog {log for 
cevesi_sfunc_chsins fF: See FORTRAN: chsin (sin for 
cvyc$i_sfunc_chsarts {F: See FORTRAN: chsart {sart for 
evesi_sfunc_clogs {l: See FORTRAN: clog 
cvcsiclsfunc_cmolxs {13 See FORTRAN: cmplx (two args 
cveti_sfunc_con ja» {12 See FORTRAN: conJg 

eveti_sfunc cos,» f13: See FORTRAN: cos 
evcsi_sfunc_cosds 1: See FORTRAN: cosd 

cvcti_csfunc cosh, {1:2 See FORTRAN: cosh 
evcesivlsfunc_cotans {13 See FORTRAN: cotan 
evcsi_sfunc_csings {13 See FORTRAN: = csin 

evcti_sfunc _csarts {1:3 See FORTRAN: csart 
cycti_sfunc_dabss» (1: See FORTRAN: dabs 
eveti_sfunc_dacos,s {1:3 See FORTRAN: dacos 
evcti_sfunc_dasins (1: See FORTRAN: dasin 

evcti_sfunc datans {1: See FORTRAN: datan 
eveti_sfunc_datan2» {1:2 See FORTRAN: datan2 


cveti_sfune_dconjgs {F2: See FORTRAN: deonjg (conjg fo 
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evetiilsfunce_dcosys 
evesi_sfunc_decoshs 
cvyesi_sfunc_dcotans 
evesiisfunc_ddlms 
cycti_sfunc_dexpys 
evcesti_sfunc_dims 
cvcti_sfune_dimaas 
cvctl_usfunc_dints 
eves$iisfune_dlog»s 
evesi_sfunc_diogl0s 
eveticlsfunc_dmaxl>» 
evesSiisfunc_dminls 
eveti_sfunc_dmod»s 
eveti_lsfunc udnint » 
evesi_sfunc udprods 
evesti_lsfunc_dsign»s 
cvcsiclsfunc udsins 
cveSi_esfunce_dsinh» 
evesi _sfunc udsart» 
evesi_sfunc_dtans 
eveti_sfunc_dtanhys 
eveSi_sfunc_eqv_lbit» 
cvesi_sfunc_eav_64bit» 
cycti.sfunc_er fs» 
cvcs!i_sfunc_erfes 
cevcesSi_sfunc_exps 
cveti_sfunc_extb»s 
eveSi_ sfunc_ floors 


eveticsfunec_fract_parts 


cvcti_sfunc_habs»s 
cvctsi_sfunc_hacos» 
cycti_sfunc_hasin»s 
cycti_sfunc_hatans 
cvesi_sfunc_hatan2»s 
ceyegi_ sfunc_hconIqs 
cves$i_sfune_hcoss 
evesi_sfunc_hcoshs 
eves$icsfune_heotans 
evetiisfunc_hdims 
cvcsi_sfunc_hexpy, 
evcSicsfunc _himags 
evesi_sfunc_hints 
cvesi_sfunc_h!iogs 
cvcti-sfunc_hioglOs 
evesicisfunc_hmaxl» 
eveSi_sfunc_hminls 
cvcti_lsfunc_hmods 
cevycti_csfunc_hnints 
evetiisfunc_hstans 
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dcos 
dcosh 
dcotan 
ddim 
dexp 
dim 
dimag 
dint 
dtoga 
diogl10 
dmaxl 
dminl 
dmod 
dnint 
dorod 
dsian 
dsin 
dsinh 
dsart 
dtan 
dtanh 
eav 
eqav 
erf 
erfc 
exp 
extb 
int 

fp 
habs 
hacos 
hasin 
hatan 
hatan2 
hconjg 
heos 
hcosh 
heotan 
hdim 
hexp 
himag 
hint 
hiog 
hiogld 
hmaxl 
hminil 
hmod 
hnint 
hsign 
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eveti_lsfune_hsinge {2:3 See FORTRAN: hsin 
eveticsfunc_hsinhs {22 See FORTRAN: hsinh 

evesSiusfunc lhsartys {23 See FORTRAN: hsart 

cvyeti sfunc_htans £2: See FORTRAN: htan 
eveticsfunc_htanhs {23 See FORTRAN: htanh 
cvetiisfunc_132_to_cl28_powers {F3 Sea FORTRAN: '¢**** operator 
cyc$i_sfunc_i32_to_c256_powers, {F: See FORTRAN: ¢##* operator 
evesi_sfunc_i32_to_c64_power >» {Fs See FORTRAN: ‘'*** operator 
evesi_sfunc_t32_to_132_pvowners fF: See FORTRAN: %%** operator 
evesi_sfunc_i32_to_164_power » {F: See FORTRAN: %t#** operator 
eves$iclsfunec_132_to_rl28_powers {F? See FORTRAN3 **k*! operator 
evcSi_sfunc_132_to_r32_powers {F: See FORTRAN? *tk** operator 
eveti_lsfunc_132_to_r64_power>» fF: See FORTRAN: ‘¢**! operator 
eveticsfunec_f44_to_cl28_powers, (£1: See FORTRAN: t*** operator 
cevc$Si_usfunc_if4 to _c256_powers {(F: See FORTRAN: ¢*#*! operator 
eveti_csfune_164_to_c64_powers {F: See FORTRAN: t#** operator 
evyesi_vlsfunc_§64_to_132_powaer » {Fs See FARTRANs %**! operator 
eveti_sfunc_i64_to_164_power» {1: See FORTRAN: '#! operator 
cveSicsfunc_i64_to_r128_ power, (1: See FORTRAN: '%*** operator 
cevesi_sfunc_!64_to_r32_power » (2: See FORTRAN: '%**#* onerator 
cvyesisfunc_164_to_r64_powers (12 See FORTRAN: *** operator 
eves$icsfunc_labs» {12 See FORTRAN: tabs 
eveti_sfunc_ichar» (1: See FORTRAN: Iichar {FIXED collation) 
eve$icsfunc_ichar_coltateds {1:3 See FORTRAN: ichar {USER collation) 
eveti_sfunc_idims {1s See FORTRAN: idim 
cveti_sfunc_idnint» {1:3 See FORTRAN: idnint 
cyctivcsfunc_thnints £1: See FORTRAN: thnint 
evesiclsfunc_indexs Tl: See FORTRAN: index 
ceveti_lsfunc_insby» {1: See FORTRAN: insb (bootean first arg) 
cvyceti_sfunc_isign» (1: See FORTRAN: Isign 

evetiusfunc_ Jabs» {F: See FORTRAN: jabs fabs for 132) 
cevesi_sfunc_ jdims {F2: See FORTRAN jdim (dim for 132) 
evesiclsfunc_ jmax0»s fF? See FORTRAN: Jmax0O (max for 132) 
evetivlsfunc _ jninods LF: See FORTRAN: Jmino tmin for 132) 
evecs$i_sfunc_ Jmod» {F: See FORTRAN: jmod (mod for 132) 
eveti_csfunc_isiagn» fF: See FORTRAN: Jsign (sign for 132) 
cycti_sfunc_lenys {1: See FORTRAN: ten 
eycsi_sfunc_teq_bOl>»s {2: See FORTRAN? -See Note l- 
eve$i_sfunc_leq_bOl_collateds (2? See FORTRAN: =-See Note l= 
cvycesicsfunc_lteaq_bsigqn» {12 See FORTRAN: -See Note l- 
cve$icsfunc_leq_bsign_collateds (12 See FORTRAN: -See Note l- 
evesicsfunc_tae_b0l>» (2: See FORTRAN: -See Note l= 
evesicsfunc_Ige_bOl_col lated, {23 See FORTRAN: -See Note l= 
cevc$icsfunc_igqeibsiqns {1:3 See FORTRAN: -See Note l= 
cvc$i_csfunc_Iiae_bsign_collateds (1: See FORTRAN: -See Note l= 
evce$icsfunc_!at_boOl» (2: See FORTRAN: <-See Note l= 
evesicsfunc_tgt_bOl_collated, {2? See FORTRAN: See Note le 
eve$icsfunc_latubsigns {13 See FORTRAN: -See Note l= 
evceti_sfunc_tgt_bsign_collateds €1: See FORTRAN: -See Note l= 
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evesi_sfunc_Ile_bOl»s {2: See FORTRAN: -See Note l= 
evesi_sfunc_Ile_bOl_collated>s {2:2 See FORTRAN: -See Note l= 
ceveti_sfunc_tte_bsians {12 See FORTRAN: -See Note l= 
eveti_sfunc_ite_bsign_collateds {1:3 See FORTRAN: -See Note l- 
evesSicsfunc_!l)tubol>» {22 See FORTRAN: <-See Note l= 
cyesi_sfune_!tit _bOl_collateds £2: See FORTRAN: -See Note l= 
evc$i_sfune_litubsigns {1% See FORTRAN: -See Note le 
eveti_sfunc_litubstiaqn coltateds (£1: See FORTRAN: -See Note l- 
evesiisfunc_!Ine_bOl>s {22 See FORTRAN: <See Note l= 
eveti_sfunc_Ine_bOl_collateds {22 See FORTRAN: «See Note l= 
cvcesti_sfunec_Ine_bsigns {1:2 See FORTRAN: -See Note il- 

eveticsfune_tne_bsign_coltateads {12 See FORTRAN: <-See Note l= 
eve$ivsfunc_Itob_bOls {2% See FORTRAN: ttob 
evcesiclsfunc_Itob ubsiagns {1:2 See FORTRAN: Itob 
eveticsfunc masks {1:2 See FORTRAN: mask 
eveti_sfunc_maxs (1: See FORTRAN: maxO {two args) 
cveSicsfunc maxis {12 See FARTRAN: maxi {two args) 
ceyesicsfunc_meroge 128bIt_bOl>» {22 See FORTRAN? merge 
cvcesi_sfunc_merge_1l28bit_bsigns {1:2 See FORTRAN: wmerae 
evesi_sfunc merge. 16ébit_bOl» {F3 See FORTRAN: wmerge 
evesivlsfunc_merae_lS5hit_bsigqns {Fs See FORTRAN: merge 
cvetivsfunc merge _ 1Lbit_bOl>» (2? See FORTRAN: merge 
cvcs$i_sfunc_merge_ibit _bsians {1% See FORTRAN: merge 
evceSi_sfunc merge _ 256bit_bOl>» {Ft See FORTRAN: merge 
cycS$icsfunc_merge _256bit_bsigns f£F: See FORTRAN: merge 
eveti_sfunc_merge 32bit_bOl>s {23 See FORTRAN: merge 
eve$iclsfunc merge _32bit_bsigns {2: See FORTRAN: merge 
cevesi_sfunc_merge_64b1t_bOl1>s {2:3 See FORTRAN: merge 
cevesi_sfunc_merae_ S4bit_bsiaqns €1:2 See FORTRAN: merge 
evcesi_sfunc_merge_B8bit_bOl» fFs See FORTRAN? merge 
evesivsfunc merge _Sbit_bsians {F2 See FORTRAN: merge 
evceti_isfunc minds {13 See FORTRAN: mind {two args) 
evcesSi_sfunc_minls {12 See FORTRAN: minl (two args) 
cevesicsfunc_ mods {1? See FORTRAN: mad {ADA "rem? operator) 
eveti_sfunc_mod_ada» {A: See ADA: ‘mod!’ onverator 
eveticsfunc _neaqv_ibits {1:3 See FORTRAN: negqy (two argss bit) 
cvcti_sfunc_neqv_64bit»s {1:2 See FORTRAN: neqv {two args» hoolean) 
eveticsfuncunintys {1:2 See FORTRAN: nint. 
evesticsfunc_not_lhit»s {12 See FORTRAN: como (bit) 
evctl_ sfunc_not_64bit» {12 See FORTRAN: compl (boolean) 
cvcti_sfunc_odd_b0l»s {P: See PASCAL? odd 
cvesictsfunc_odd_bstagns {P3: Sae PASCAL? odd 
evesi_usfunc_or_lbit»s (1: See FORTRAN: of (two args» bit) 
evesicsfunc lor _64bit» {1% See FORTRAN: ofr {two args» boolean) 


eve$icsfunc_ril28_to_cl28_powers £12 See FORTRAN:S '**** operator 
eveticsfunc_ri28 to _c256_powers {Fi See FORTRAN: **** operator 
evcftitlsfunc_rl28_to_c64_ powers, {F? See FORTRAN? '**! operator 
evcticsfunc rl28_to_i32_power,s {F! See FORTRAN: ''*** operator 
eveti_usfunc_ri2s8_to_f64_power, {12 See FORTRAN: %t#** operator 
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evesiusfunc_r128_ to _rl28_pnower >» 
eveti_clsfunc_ri28_to_r32_powers 
eveticsfunc_r128_to_r64_powers 
evecti_sfunc ur32_to_cl28_power » 
cvycesicsfunc_r32_to_¢256_power » 
cveti_sfune_r32_to_ch4_powers 
evesi_sfunc_r32_to_i32_powers 
cve$i_ sfunc r32_to_i64¢ power » 
cveSiisfunc_r32_to_rl28_ power» 
evesiclsfunc_r32_to_r32_powers 
evesSiisfunc _r32_to_r64_pnower>» 
ecvesi_ sfunc_r64_to_cl28_power >» 
evesiisfunc_r64_to_c256_power » 
eveti_sfunc_r64_to_c64_power » 
eveti_sfunc_r64_to_i32_powers 
cevesiisfunc_764_to_i64_ powers 
evesSi_sfunc_r64_to_r1l28_power>»s 
cycSi_-sfunc_r64_to_r32_o0wer » 
evesi_isfunc_r64_to_r64_pomers»s 
evesiisfunc_rorods 
cycti_sfunc _sgn_i6t4s 
eyesicsfunc_sgn_rh4>» 
eve$i sfunec_ shifts 
cvcsi_sfunc_signs 
cveSi_sfunc_ sins 
cyc$i_sfune_sinds 
cycs$i_sfunc_sinhs 
ceve$i_sfunc_sart» 
cveti_isfunc tans 
eve$icsfunc_tands 
evcti_csfunc_tanhys 
eveti_tcalt_altubOl, 
evesiitcalivlaltlbstians 
cyc$i_tcall_any_bOl» 
eve$icltcalt_any_bsigns 
eveti_tealt_count_bdOl»s 
cyvc$ivtcall_count_bsian»s 


evyc$i_tcalt!_diagonal_char» 
eveti_tcatt_maxval_1i32_b01l»s 
cvecti_tcall_maxval_132_bsignes 
eveti_tcati_maxval_164_b01>» 
eveti_tcalt_maxval_i64_bsiaqns 
cvc$i_tcall_maxval_ril28_bol>»s 


cvc$i_tcall_maxval_rl28_hbstan,»s 


evcSi_tcaltiimaxval_r32_b0ls 
evces!i_tcall_maxval_r32_bsitgns 
evesSi_tcal! maxval_r64_b01> 
cyceti_tcall_maxval_ r64_bsigns 
cvesi_tecaltl_ minval_ 132 b01> 
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{Fs 


{F3 
{23 
{23 


{22 


(23 
{1:3 
{Fs 
{Fs 
fFs 
{13 
{1: 
{232 
i 
{23 
{Rt 
{83 


See 
See 
See 
See 
See 
Sae 


See. 


Sae 
See 


FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN: 
FORTRAN: 


FORTRAN? 


FORTRAN? 
FORTRAN? 
FORTRANS 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN: 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN: 
FORTRAN? 


> FORTRAN: 
e FORTRAN: 


RBASIC3 
BASIC: 


2 FORTRAN? 


FORTRAN? 


2 FORTRAN? 


FORTRAN: 
FORTRAN? 
FORTRANS 
FORTRANS 
FORTRANS 
FORTRAN? 
FORTRAN: 
FORTRAN? 


2 FORTRAN? 


FORTRAN? 
FORTRANS 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN: 
FORTRAN? 
FARTRANS 
FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN? 
FORTRAN? 


1 FORTRAN: 


164 result) 
164 result) 
ean first arg) 


85/01/03 
'*kT operator 
t*x#! operator 
1**! operator 
***! operator 
*#kx! operator 
***t operator 
t*x*! operator 
***" operator 
*k*! gperator 
**! operator 
**** operator 
tee! operator 
#kek!# operator 
tek! operator 
***? operator 
tk** operator 
*#*8 gperator 
***1 operator 
'x*! operator 
rprod 
sgn (164 ara» 
san (r64 args 
shift thoot 
signa 
sin 
sind 
sinh 
sart 
tan 
tand 
tanh 
all (two args) 
all {two args) 
any (two args) 
any {two args) 
count (two args) 
count {two aras) 
diagonal 
maxval (three args) 
maxval (three args) 
maxval (three args) 
maxval (three args) 
maxvel {three args) 
maxval {three args) 
maxval (three args) 
maxvel (three araqs) 
maxvel (three args) 
maxval (three args) 
minval (three args) 
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evesi_tcati_minval_l32_bsigqnys {F: See FORTRAN: minval (three args 
evesi_tcall_minval_164_b01> {33 See FORTRAN: minval (three args) 
evc$ti_tcali_minvat_f64_bsigns {32 See FORTRAN: minval (three args) 
eve$i_tcall_minval_r128_b01>» £3: See FORTRAN: minval (three args) 
evedi_tcattiminval_ril28_bsigns £3: See FORTRAN: minval (three args) 
evesi_tcall ominval_ r32_b0l1s {32 See FORTRAN: minvat (three args). 
eveti_tecall_minval_r32_bsiagn»s {32 See FORTRAN: minvas (three args) 
cveti_tcall_minval_r64_bOl1>»s {33 See FORTRAN: minval {three args) 
evesSivltcall_minval_r464_bstans {32 See FORTRAN: minval (three args) 
cevetictecall_oack chars {1:2 See FORTRAN: pack {two args) 
cveti_tcalilt_pack_insert_char»s {12 See FORTRAN? pack {three args) 
cvesicltcall_eroduct_c128_bO01>s {33 See FORTRANS product (three aras) 
eveti_teatl_product_cl28_bstaqns €32: See FORTRAN: product (three args) 
eves$li_ teall_oroduct_c254_b0O1> fF: See FORTRAN: product (three args) 
eveti_tcall_product_c256_bstigqns {F: See FORTRAN: product {three args) 
eveti_tcall_ product_c64_b0l1> {F: See FORTRAN: product (three args) 
eve$i_tcall_ product ch4_bsians fF: See FORTRAN: product (three args) 
evesi_tcal! product_i32_b01>»s {F2: See FORTRAN: product (three args) 
eycti_tcall_uproduct_i32_bstgqns {F? See FORTRAN: product (three args) 
evesicltcall_oroduct_f64_ 601» £3? See FORTRAN: oroduct (three args) 
eveti_tcalt_product_i64_bsiaqns (3: See FORTRAN: product (three args) 
eveti_tcall product r128_b01>» (3: See FORTRAN: product (three args) 
cveti_tcalt_product_ri28_bsians €3: See FORTRAN: oroduct (three args) 
eveti_tcall_product_r32_b01>s £3: See FORTRAN: product (three args) 
evceti_tcali_product_r32_bsigns [3% See FORTRAN: product (three args) 
evctictcail  product_r64_b01> £33 See FORTRAN: product (three args). 
cevcsi_teall product r64_bsigns {3:2 Sae FORTRAN: product (three args) 
eve$ictcalt_reptlicate_12hbits. £3: See FORTRAN: replicate 
eycsi_tcal!l reolicate_l6bits {F: See FORTRAN? replicate 
cycti_tcatt_replicate_lhits (3: See FORTRAN: replicate 
evesi_tcall replicate _256bit»s {F: See FORTRAN: replicate 
eve$Si_tcatt_repticate  32bits {33 See FORTRAN: replicate 
cveti_tcalt_replicate_ 64bits (3: See FORTRAN: repticate 
cvesti_tcall_reoticate_8bits {F: See FORTRAN: replicate 
cveti_tcaltl_reptlicate_ chars {3: See FORTRAN? replicate 
evcti_tcal!iispread_128bit» {33 See FORTRAN: spread (array first 
evceti_tcall spread_l6ébits {Fs See FORTRAN: spread larray first 
evesi_tcail spread Llbits {3:3 See FORTRAN: spread (array first 
eves$ivltcal! spread _ 256bit»s {F: See FORTRAN: spread (array first 
cvyesi_tcall spread _ 32bit» {33 See FORTRAN: spread (array first 
cye$i_tcall_spread_64bit»s {3: See FORTRAN: spread (farray first 
cve$i_tcall_spread_8bit» {F: See FORTRAN: spread (Carray first 
evesi_tcalluspread chars {33 See FORTRAN: spread (array first 
evesii_tcalle sum cl28_bO0l1>» {23 See FORTRAN: sum (three args) 
evesi_tcal! sum _cl28_bsigns {12 See FORTRAN: sum (three args) 
evesi_tcali_sum_c256_b01>» {F: See FORTRAN? sum (three args) 
cvesi_tcallusum_c256_bsi gn» {Fe See FORTRANS sum {three args) 
evetivctcall sum _c64_b91>» {F: See FORTRAN? sum (three args) 
evesi_tcal!t_sum_c64_bsigqns fF: See FORTRANS sum {three args) 
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arg) 
arg) 
ara) 
arg) 
arg) 


R4-16 
CYRER Vectorizing Code Generator Interface Specification 


85701703 
B4.0 CVTSI_LINTRINSIC_I0 
cveSiitcall_sum_i32_h01> {F: See FORTRAN: sum {three args 
evesti_tcalicsum_i32_bsiaqn» fF: See FORTRANS sum {three aras) 
cyesti_tcaliv-sum_164_b01> {23 See FORTRANS sum (three aras) 
evesti_tcaltuisum_f64_bsign»s {12 See FORTRAN: sum (three args) 
eveSi_tcal!_ sum _r128_b0l1>» (2: See FORTRAN: sum {three args) 
evesictcattisum_rl28_bsigns (1: See FORTRAN? sum {three args) 
evesi_tcatl sum _r32_b01> £2? See FORTRANS sum (three args) 
cveti_tcall_sum r32_bsiqns {22 See FORTRAN: sum (three args) 
evesi_tealt_sum_r644_b0l>s {23 See FORTRANS sum (three args) 
evesi_tcall_sum_r64_bsigns {13 See FORTRANS sum (three args) 
evesi_tcallt_transpose_chars £33 See FORTRAN: transpose 
evesi_tcall unpack chars {13 See FORTRAN? unpack 
cvycti_tfunc_all_bOl> {23 See FORTRAN: all {two arqs) 
cvce$i_tfunc_all_ubsigns £13 See FORTRAN: all {two aras) 
evcsi_tfunc_att_b0Ol>» (3: See FORTRAN: ait 
evesicltfunc_aitubsiagns {3% See FORTRAN: aft 
evesi_itfunc_any_bOl>» £22 See FORTRANS any (two args) 
evetitfunc_any_bsiaqns {13 See FORTRAN: any {two aras) 
cevcSi_tfunec_count_bOl» £23 See FORTRAN: count {two args) 
cvestictfune_count_ubsigqns {12 Sea FORTRAN: count {two args). 
evesi_tfune_ diagonal _128bit» {32 See FORTRAN? diagonal -See Note 4- 
cveti_tfune_diagonal_16bits {F: See FORTRAN: diagonal -See Note 4= 
evcti_ tfune_diagonal_lbits {32 See FORTRAN: diagonal -See Note 4=- 
evesti_tfune_diagonal_256bit»s {F3 See FORTRAN: diagonal -See Note 4=- 
evesi_tfune_diagonal_ 32bit»s {3:3 See FORTRANsS diagonal -See Note 4= 
ceveti_tfunc_diagonal_S4bit»s {31 See FORTRANS diagonal -See Note 4=- 
evesi_ tfunc_diagonal Abit, TF: See FORTRAN: diagonal -See Note 4= 
evesi_tfunc_matmul _bOl» {23 See FORTRAN: matmul 
evesti_tfunc_matmul _bsigns {1:3 See FORTRAN: matmul 
cyvc$i_tfunc_matmul_¢c128>» {13 See FORTRANS matmul 
evesi_ tfunc matmul _¢256>» {Fs See FORTRAN: matmu! 
cvesl_tfunc_matmul _c6h4»s {F3 See FORTRAN? matmul 
evesivttfunc_matmul_ 132» {Fs See FORTRANS matmul 
evesSiltfunc matmul _ 1645 {1: See FORTRANS matmul 
evyeSi_ tfunc_matmul_ £128» (1: See FORTRAN: matmul 
evesi_tfunc_matmul_¢r 32» {23 See FORTRAN: wmatmul 
evceti_tfunc_matmul_ 764s {1:2 See FORTRAN? matmul 
cevyefiitfunc maxval_i32_b01>5 {F3 Sea FORTRAN? maxval (three args) 
eveti_tfunc_maxval_§32_bstaqns fF: See FORTRAN? maxval (three args) 
evcsi_tfunc_maxval_164_b01>» {32 See FORTRANS maxval (threa args) 
evesi_tfunc_maxval_i64_bstaqny»s {33 See FORTRAN: maxval (three args) 
eves i ltfunc_maxval_r128_hbOl1>»s {32 See FORTRAN: maxval (three args) 
evcesSi_tfunc_maxval_rl28_bstans £32 See FORTRAN: maxval (three args) 
evesi_tfunc_maxval_r32_b01> (32: See FORTRANS maxvat (three args) 
evcsi_tfunc_maxval_r32_bsitgns {32 See FORTRAN:S maxval {three args) 
cvcSi_tfunc_maxval_r64_b0l»s {322 See FORTRANS maxval (three aras) 
evesi_tfunc_maxval_r64¢_bsigqns (32 See FORTRAN: maxval (three args) 
evesiitfunc_minval_132_b01>» fF: See FORTRANS minval (three args) 
evesi_tfunc _minval_i32_bsians fF? Sae FORTRAN: minval (three aras) 
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evesi_tfunc_minval_164_bO01>» £3: See FORTRAN: minval (three argqs 
eveti_ tfunc_minval_i64_bsians (3: See FORTRAN: minval {three aras) 
evesi_tfunc_minval_ri28_ bol» £32 See FORTRAN: minval {three args) 
evesi_tfunc_minval_r1l28_bstgons (33 See FORTRAN: minval (three args) 
cyvcesi_tfunc_minvat_r32_h0l>» {32 See FORTRAN: minval (three args) 
evesi_tfunc_minvator32_bsigns (33: See FORTRAN: minval (three args) 
evesi_ tfune_minval_r64_b01> {3:3 See FORTRAN: minval (three args) 
evesi_tfunc_minval_r64_bsigns £3: See FORTRAN: minval (three args) 
eve$i_tfunc _packin _128bit_bOls [2:2 See FORTRAN? pack {three args) 
cevcti_tfunc_packin_128bit_bstans{1? See FORTRAN: pack {three args) 
evetivltfunc_packin_16bit_bOl>»s {F2: See FORTRAN: pack (three args) 
eveti_tfunc _packin_lébit_bsiqns {Ft See FORTRAN: pack {three args) 
evesSi_tfunc_packin_1lbit_bOl> (2: See FORTRAN? pack {three args) 
evesti_tfunc_packin_lbit_bsiagqns {13 Sea FORTRAN:S pack (threa args) 
cvesi_tfunc_packin_256bit_bOl» {F: See FORTRAN: pack (three args) 
evesSi_tfunc_packin_256bit_bstansfF: See FORTRAN: pack (three args) 
evesivltfunc_packin_32bEt_bO1» {2% See FORTRAN? pack (three args) 
evesi_tfune_packin_32bit_bsigqns (£2: See FORTRAN: pack (three arqs) 
eveti_tfune_packin_64hit_bOls {2: See FORTRAN: pack {three ards) 
evesSi_tfunc_packin_64bit_bsigns {1:2 See FORTRAN? pack {three args) 
evesi tfunc_packin_ShitwbOl» {F: See FORTRAN: pack {three args) 
eveticvtfune_packin_8hitlbsigns {F2 See FORTRAN: oack {three ards) 
eveti_tfunc_pack_128hit_bOls {23 See FORTRAN? pack (two aras) 
evesi_tfunc_pack_128bit_hbsians {1:3 Sae FORTRAN? pack {two args) 
evesi_tfunec_pack_l6bit_bOl» TF; See FORTRAN: pack {two args) 
evetictfunc_pack_1l4bit_bsians fF: Sea FORTRAN: pack (two args) 
evetiltfune_pack_1lbit bOl>» {23 See FORTRAN: pack {two args) 
evesi_tfunc_pack_lhit ibstians {1:3 See FORTRAN? = pack {two args) 
eveti_ltfunc_pack_256bit_boOl>»s {F: See FORTRAN: pack {two args) 
evetivtfune_pack_256bit_bsiagns {F: Sea FORTRAN? pack {two args) 
evesi_tfune_pack_32b1t_bOl1>» {22 See FORTRAN: pack {two aras) 
eveti_tfunc pack _ 32bit_bsigqns {2: See FORTRAN: pack (two args) 
eveticltfunc_pack_64bit_bOl>» (2: See FORTRAN: eack {two args) 
cvcsi_tfunc_pack_f4bit_bsigns {13 See FORTRAN? pack {two args) 
cvesi_tfunc_pack_8bit _bOl»s {Fs See FORTRAN? pack (two args) 
cycti_tfunc_pack_Sbit_bsigqns {F: See FORTRAN: pack (two args) 
eveSi_tfunc_product_cl28_bO1>» £3: See FORTRAN: product {three aras) 
eveti_tfunc_product_cl128_bsigns £3: See FORTRAN: product (three args) 
cvesSicltfunc_lproduct_c256_b01» {F: See FORTRAN: product (three args) 
evesi_ tfunc_product_c254_bstans {F: See FORTRAN: product (three args) 
evesi_tfunc_product_c64_bG1> {F: See FORTRAN? product (three args) 
cevesti_itfunc_product_c64_bstians, {Fs See FORTRAN:S product (three araqs) 
eveti_tfunc_product_i32_bOl» {F: See FORTRAN: product (three args) 
evesi_ tfunc_product_i32_bsigns fF? See FORTRAN: product (three args) 
eveti_tfune_product_f44_b01» (3:3 See FORTRAN: product (three args) 
evesSi_tfunc_product_i44_bsigns £3: See FORTRAN: product (three args) 
evesi_tfunc_product_r128_bOl1>s {33 See FORTRAN: product (three aras) 
evesi_tfunc_product_rl28_bsians €32 See FORTRAN: product (three args) 
evesl tfunc_product r32_b01> {3:2 See FORTRAN: product (three args) 
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eveti_tfunc product r32_bsiqn» 


{32 See FORTRAN: product (three args 
evesti_tfune_product_ r64_b0ls £33 See FORTRAN: product (three args) 
evesi_tfunc product _r64_bsiaqns, £3: See FORTRAN: product (three args) 
eveSi_tfunc _reolicate_128bits {33 See FORTRAN: replicate 
evesi_tfunc_reolicate_L6bit»s fF: See FORTRAN: replicate 
evesi_tfunc_reoticate_Llbit» £43 Sea FORTRAN: replicate 
evesti_tfunc_replicate_256ébit» {F: See FORTRAN: replicate 
evcti_tfunc_repticate_32bits {32 Sea FORTRAN: replicate 
eveti_tfunc_replicate_64bit»s {3:3 See FORTRAN: replicate 
eveti_tfunec_replicate _8bits {Fe See FORTRAN: replicate 
evesi_tfunce_seq_i32y» {F: See FORTRAN: seq {three args) 
eveti_tfune_seq_i64,» (3: See FDORTRANS seq (three args) 
evceti_tfunc_spread_128hbit»s {33 See FORTRAN? spread (Carray first 
evcti_tfune_spread l4bits TF: See FORTRAN3 spread (array first 
evesi_tfune_spread_lbits (3: See FORTRAN: spread (array first 
evesi_tfunc_spread_254bIit» {F: See FORTRAN? spread (Carray first 
eveti_tfunc_spread_ 32bits {3:3 See FORTRAN: spread (larray first 
cvesi_tfunec_spread_ 64bits {32 See FORTRAN: sworead (array first 
evcsi_tfunc_spread_Bhit»s fF: See FORTRAN: spread tarray first 
evestivltfunc_sum_cl28_bOl> €2? See FORTRAN: sum (three args) 
evesi_ tfunc_sum_cl28_bsigns {13 See FORTRAN: sum {three args) 
evetiitfunc sum _c256_bO1» {F: See FORTRAN? sum (three args) 
eyeti_tfune_sum_c256_bsignys {F2: See FORTRAN: sum (three args) 
eveti_tfunc_sum_c64_b91> {F2: See FORTRAN: sum {three aras} 
evesi_tfune_ sum_¢64_bs lan» {Fs See FORTRAN? sum (three args) 
evesti_tfunc_sum_[}32_b01>» {F2: See FORTRAN? sum (three args) 
evesi_tfunc_sum_i32_bsiaqn»s {F: See FORTRAN: sum {three aras) 
evesi_tfunc_sum_164_b01>s {23 See FORTRAN? sum {three args) 
evesi_tfunc_sum_i54_bstan»s {1:2 See FORTRAN: sum {three args) 
eveti_ tfunc_sum_ri23s_bols {22 See FORTRAN? sum (three args) 
cvces$i_tfunc _sum_r128_hbsians {13 See FORTRAN: sum {three aras) 
evcsi_tfunc_sum_r32_b0l> {23 See FORTRAN: sum (three aras). 
eveti_tfunc_sum_r32_bs ign» (2: See FORTRAN? sum (three ards) 
evcesSi_tfunc_sum_r64_b0l1>» {22 See FORTRAN: sum (three args) 
evetiiltfunc_sum_r64_bsiaqns fl: See FORTRAN? sum {three args) 
evesi_tfunc_transpose_128bits {33 See FORTRAN: transpose 
eveti_tfunc_transpose_lL6&bit»s {F2: See FORTRAN: transpose 
eveti_tfune_transpose_lbits {33 See FORTRAN? transpose 
evesi_tfune_transpose_ 256bi t» {Ft See FORTRANS transpose 
evcsi_tfunc_transpose_32bit»s {3:3 See FORTRAN: transpose 
eveti_tfune_transpose_64bit»s {32 See FORTRAN: transpose 
evesi_tfunec_transpose_Sbit» TF: See FARTRAN: transpose 
evesti_tfunc_unpack_128hbit_bOl»s {22 See FORTRAN? unpack 
evestl_tfune_unpack_128hit_bsiqns{1: See FORTRAN? unpack 
cveSi_tfunc_unpack_L6bit_b0Ol>» {F: See FORTRAN? unpack 
evesiltfunc_unpack_1l6bit_bsians {F2: See FORTRAN: unpack 
evesi_ tfunc_unpack_Lbhit_ bol» {2:3 See FORTRAN: unpack 
eveti_tfunc_unpack_Llbit lbstigns {1% See FORTRAN: unpack 
evesi_tfunc_unpack_ 254bit_bOl, fF: See FORTRAN: unpack 
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eveti_tfunc_unpack_ 256bit_bsigns fF: See FORTRAN? unpack 
eveti_ltfunc_unpack_32bit_bO1>» {2:3 See FORTRAN? unpack 
eveti_ tfunc_unoack_ 32bit_bsians £2: See FORTRAN: unpack 
eveti_tfunc_unpack_64bit_bOl»s (2? See FORTRAN: unpack 
evcti_tfunc_unpack_ 454bit lbsigns {1:2 See FORTRAN: unpack 
cvesi.tfunc_unpack_Sbit_bOls {F: See FORTRAN: unpack 
evesti_tfunc_unpack_B8bit_bsigns fF: See FORTRAN? unpack 
evesi_veall chars» {1: See FORTRAN? char {FIXED collation) 
eveticvealiclchar_collateds {1:3 See FORTRAN: char {USER collation) 
eveti_veall_mergqe_char_bGls {23 See FORTRAN? merge 
cvcti_veall_merge_char_bsigns {1:2 See FORTRAN: merge 
eveticlvfunc_abs» {1: See FARTRAN? abs 
eve$i_vfune_acos» {1: See FORTRAN: = acos 
evesitvfunc_almags {13 See FORTRAN: aimag 
cvyc$i_vfunc_aint» {1: See FORTRAN? aint 
eveslt_wfunc_alog»s {13 See FORTRAN: alog 
cvesi_ vFfune_alogld» {12 See FORTRAN: atogld 
evcti_lvfunc_amaxO0» {1:3 See FORTRAN: amaxd {two args) 
evctivlvfunc_amaxls {13 See FORTRAN: amaxl {two args) 
evcetiiovfunc_aminds {1:3 See FORTRAN: amind {two args) 
cvetivlvfunc_aminl» {12 See FORTRAN: aminl (two args) 
cvcti_vfunc_amods {12 See FORTRAN: amod 
eveti_vfunc land lbits {1:2 See FORTRAN: = and {two argss bit) 
evesiclvfunc_and_b64bits {13 See FORTRAN: and {two args» boolean) 
evebilvfunc_anints {1s See FORTRAN: anint 
evesiclvfunc_asins {13 See FORTRAN: asin 
cveti_lvfunc_atans 1: See FORTRAN: atan 
evcesi_vfunc_atan?2» {1:2 See FORTRAN: atan2 
cvcticvfunc_atanhs (1: See FORTRAN? atanh 
eveSi_vvfunc_bool_of_ chars {1:3 See FORTRAN: bool (character arg only) 
eves$ivlvfunc_bfol_boOls {22 See FORTRAN: btol 
evetivvfunc_btol_bsigqn»s {1: See FORTRAN: btol 
evetivvfunc_cl28_to_cl28_powers {13 See FORTRAN: #4 operator 
eveSi_vfunc_¢c128_to_¢c256_ powers {(F: See FORTRANS '*#** operator 
evesi_vfunce_cl28_to_c64_powers {F: See FORTRAN: '%**! operator 
cvyc$icvfunc_cl28_to_i32_power, {F3 See FORTRAN? %**?* operator 
evesi_vfunc_cl28_to_i64_powers {132 See FORTRAN: *%*** operator 
cyeti_vfunc_cl28_to_rl2B_powars (1:2 See FORTRAN? *%**! onerator 
evesSivvfunc_cl28_to_r32_ powers (22 See FORTRAN? %**! opnerator 
eveticvfune_cl28_to_r64_powers £1: See FORTRAN: ***! operator 
eve$i_vfune_c256_to_cl128_powers {F: See FORTRAN: ¢t##* operator 
cvesivlvfunc_c256_to_c256_po0wers {Ft See FORTRAN: '#*! goerator 
evesi vfunc_c256_to_c64_powers {F2 See FORTRAN: '*** operator 
evesi vfunc_c256_to_i32_ powers, {F: See FORTRAN: '%**! goerator 
cvce$i_vfunc_c256_to_i64_powers ({F: See FORTRAN: ¢*#*! operator 
evce$icvfunc_c256_to_ri28_powers fF: See FORTRAN: ‘¢#k* operator 
evetivlvfune_c256_to_r32_powers, {F: See FORTRANS "9 operator 
evesiclvfunc_c256_to_r64_ power, {F: See FORTRAN: %**! operator 

fF: See FORTRAN: '*! operator 


eyvesi_vfunc_c64_to_cl28_power» 
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eveti_vfunce_c64_to_c256_oower, {F: See FORTRAN: '**9 oparator 
evyeti_vfunc_c64_to_c64_powers» fF: See FORTRAN: ‘¢**! gperator 
eveti_vfunc_c64_to_i322_power » fF? See FORTRAN? '**#" operator 
eveti_vfunc_c64_to_i64_powers {F: See FORTRAN: ¢*** operator 
eveSiclvfunc_c64_ to_ri2B powers, (€F2: See FORTRAN: *** operator 
evycti_vfunc_c64_to_r32_power» {F: See FORTRAN: '*** operator 
eveti_vfunc_c64_to_r64_power» {F3 See FORTRAN? **** operator 


cvesi_vfunc_cabs» {12 See FORTRAN: cabs 

ceveSiivfunc ccos, {13 See FORTRAN: ccos 

eve$ivlvfunc_cdahss {Ft See FORTRAN? cdabs (abs for c254) 
evcti_ vfunc_ecdcos» TF: See FORTRAN: cdceos (cos for c256) 
evcti_vfunc_cdexps {Ft See FORTRAN: cdexp fexp for 256) 
cvcti_vfunc_cdlogs fF: See FORTRAN: cdilog {log for ¢256) 
evcetiivfunc_cdsins {F: See FORTRAN: edsin (sin for ¢256) 
evcSivvfune_cdsart» fF: See FORTRAN? cdsart {sart for ¢256) 
ecvesi_vfunc ceils TB: See BASIC: cell {(r64 arg and result) 
eveti_vfunc_cexns {1: See FORTRAN? cexo 

eveti_vfunc_chabss | €Fs See FORTRAN: chahs (abs for 264) 
cvesi_vfunc _cheoss fF: See FORTRANS cheos {cos for c6%) 
evesi_vfunc _chexps {F: See FORTRAN: chexp exo for c64) 
eveti_vfune_chtiogs fF: See FORTRAN: chiog (fog for ¢64) 
eveti_vfunc_chsins {F: See FORTRAN: chsin {sin for ¢64) 
evcti_vfunc_chsar ty» {F: See FORTRAN: chsart (sart for c64) 
evesSiilvfunc_cloas {12 See FORTRAN: clog 

cvesi_vfunc_cmpixys {1:3 See FORTRAN: cmplx (two args» real) 
cvycesi_vfune_con jigs {1:3 See FORTRAN: conijg 

cvcti_vfunc_cos» {13 See FORTRAN: cos 

evesSi_ivfunc_cosds, (1: See FORTRAN: cosd 

eveti_vfunc_coshys {13 See FORTRAN: cosh 

evesti_lvfunc_cotans {1: See FORTRAN? cotan 

eveti_ vfunc_csin»s {13 See FORTRAN: csin 

evcesi_vfunc_csartys {13 See FORTRAN: csart 

ecvyctivvfunc dabs» {12 See FORTRAN: dabs 

cvc$icvfunc_dacoss | {1 See FORTRAN: dacos 
eveti_vfunc_dasin»s {12 See FORTRAN: dastin 
eves$i_vfunc_datans {13 See FORTRAN: datan 
eveti_vfunc_datan2» {1: See FORTRAN: datan2 

evesti_ vfunc_deon ja» fF: See FORTRAN: deonjq (conjJg for ¢256) 
cveti_vfunc_dcos» 1: See FORTRAN: deos 

cveti_vfunc_dcosh»s {12 See FORTRAN: deosh 
eveti_vfunc_dcotans {F: See FORTRAN: dceotan 
eveti_vfunc_ddims {12 See FORTRAN: ddim 

eve$ivvfunc_dexps {1:3 See FORTRAN: dexp 

cvcti_vfunc dims {12 See FORTRAN: dim 

cvesi_vfunc_dimags {F: See FORTRAN: dimag {(almag for ¢256) 
eve$ivvfune_dints {1:3 See FORTRAN? dint 

cvcti_vfunc_dioo,s fl: See FORTRAN: diag 

eve$i_vfunc _diogi0» {1:2 See FORTRAN: dtoqld 


cvyesiilvfunc_dmaxls {12 See FORTRAN: dmaxl {two args) 
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eveti_vfunc_dminls {£13 See FORTRAN: dmini (two aras) 
evce$i_vfunc_dmods {13 See FORTRAN? dmod 

cycti_vfunc_dnints £1: See FORTRAN: dnint 

evesiclvfunc_dor od» {12 See FORTRAN: dprod 

cvectivlvfunc_dsigns C1: See FORTRAN: dstian 

eveti_vvfunc_dstin»s {13 See FORTRAN: dsin 

evceSicvfune_dsinhs {1:2 Sae FORTRAN: dsinh 

evefti_lvfunc_dsart» {13 See FORTRAN: dsart 

cvycti_vfune_dtans {12 See FORTRAN: dtan 

evesticlvfunc udtanhs {12 See FORTRAN: = dtanh 

evesi_vfunc_eqv_lbits {13 See FORTRAN: eqv {two argss bit) 
evetiicvfunc_eav_64bits {12 See FORTRAN: eaqv {two argss hoolean) 
evesivvfunc_er fs {12 See FORTRAN: erf 

eveti vfunclerfe» {12 See FORTRAN: erfe 

evceSi_vfunc_exps {13 See FORTRAN: exp 

cyvesIi_vfunc_lexth»s (1: See FORTRAN: exth {boolean first arg) 
evesi_uvfunc_floors {B: See BASIC: int {r64 arg and result) 


evesi_lvfunc_fract_pvarty» {R3 See BASICS fp (r64 arg and result) 
evctivvfunc_ habs» {2% Sae FORTRAN? habs 
evesicvfunc_hacoss {2: See FORTRAN: hacos 
evesivvfunc_hasins (2? See FORTRAN: hasin 
eveti_ivfunc_hatanys {22 See FORTRAN: hatan 
eveti_vfunc_hatan2»s {2:2 See FORTRAN: hatan2 
cycti_vfunc_hconjqs {F: See FORTRAN: heconjo {conjJa for c64) 
evycti_ivfunc_hcoss {2:3 See FORTRAN: heos 
evetilvfunc_heoashs (2? See FORTRAN? hceosh 

cvcSi vfunec_hecotans {2:3 Sae FORTRAN: hceotan 
eveti_vfunc_hdims (2: See FORTRAN: hdim 
cevcti_vfunc_hexp»s {23 See FORTRAN? hexop 
cvctl_vfunc_himags {F: See FORTRAN: himag (aimag for c64) 
evefti_lvfunc hints {23 See FORTRAN: hint 
eveti_vfune_hlog»s £2: See FORTRAN: hitog 
evesiclvfunc_hiogl0>, {23 See FORTRAN: hioqgl0 
cvesticlvfunc_hmaxls £23 See FORTRAN:S thmaxl (two args) 
cvcsi_vfunc_hminls {2% See FORTRAN: hminl {two arqs) 
cevc$itvfunc_hmods {2: See FORTRAN: hmod 
evesiivfunce_hnints {23 See FORTRAN: hnint 
evcetsi_vfunc_hsiaqns {23 See FORTRAN: thsign 

evc$icvfunc lhsings £2? See FORTRAN? hsin 
cyct$ivvfuncuhsinhs {2:3 See FORTRAN: hsitnh 
eveticvfunc_hsarts (2: See FORTRAN: hkhsart 
cvcti_vfunc_htanys (2: See FORTRAN: htan 
evec$iclvfuncuhtanhs {23 See FORTRAN? htanh 
cvesi_ivfunc_i32_to_cl28_ power, {F: Sea FORTRAN: **! operator 
eve$ivclvfunc_§32_to_c256_powers fF? See FORTRAN: '%#** gperator 
cvce$i_ vfunc_132_to_c64_power » {F: See FORTRAN: **! operator 
evesivvfunc_132_to_§32_power >» {F: See FORTRANS ¢*%*! operator 
evesi_vfunc_i32_to_164_power >» {F3 See FORTRAN: ***! operator 
cve$i_vfunc_§32_to_r128_powers {F2 See FORTRAN: '**#? operator 
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cvesi_yv 
evesicv 
evcti_v 
evesicv 
cvcSi_v 
evcS$i_v 
evesticv 
cycsi_yv 
evesicv 
evcficv 
evcti_yv 
eveticyv 
evesi_v 
evcticv 
evesi_v 
eveti_lv 
cvcticv 
eveti_yv 
evesicv 
eveticv 
eveSi_v 
cvcsi_v 
eves$icv 
cvc$icv 
eveticyv 
cvcsi_v 
evcti_v 
evycti_v 
cycti_v 
evesi_yv 
cvctivv 
cvcsi_yv 
cvcticv 
cvcesi_v 
eycticv 
evesicv 
evesi_cv 
cvesicv 
eve$i_v 
eveti_v 
cvctt_yv 
cvycticv 
evc$i_v 
cvctiv 
evc$icv 
evc$i_v 
evesi_v 
evcs$t_v 
cvcsicv 
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func_132_to_r32_power » 
func_i32_to_r64_vower» 
func_t64_to_cl2B8_power » 
Func. 164_to_¢256_ power » 
func_§64_to_c464_power»s 
func_§64_to_132_powers 
func _t64_to_164_power» 
func _164_to_r1l28_oo0wer» 
func_1i64_to_r32_powers 
func _f64_to_r 64_power» 
func_ Tabs» 

func_ichars»s 

funec_ichar_ collated, 
func_idims 

func_idnints 
func_thnints 

func_indexs 

func_inshbs 

func _istans 

func _ jabs» 

func. jdims 

func, jmaxDds 

func _jminds 

func. jmods»s 

func _Jjistgn» 

func_lens 

func_ieq_b0l>» 
funcs_lea_bOl_collateds 
func_leaqubsigns 
func_teq_bsign_collated>s 
Func _tge_bOl>» 
func_lge_bOl_coltateds 
func_ltaqe_bsigqns 

func _t'qe_bstian_collateds 
func _lat_b0l>s 
func_lat_bOl_collated, 
func_igt_ bsiagns 
fune_Igtlbsign collated>s 
func_tte_bOls 
func_Ile_bOl_collateds 
func_tte_bsigns 
func_tle_bsign_coltateds 
func_ Pit bOls 

func _?it_bOl_collateds 
func_IIitubsigns 
func_litubsian_collateds 
func_tne_bOl» 

func _tine boOl_coltateds 
func_ine_bsigqns 


{Fs 
{fF 
(1: 


{Fs 


{Fs 
{Fe 
{12 
f1: 
{23 
{1% 
{13 
{13 
{13 
{13s 
{13 
£13 
{13 
{1s 
{1% 
fF: 
{F: 


{Fs 


{Fe 
{F3 
{fF 
{1:3 


FORTRAN? 
FORTRAN: 
FORTRAN? 
FORTRAN: 


FORTRAN: 
2 FORTRAN? 


FORTRAN? 
FORTRAN: 


2» FORTRAN? 


FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN: 
FORTRAN? 
FORTRAN: 


a FORTRAN: 


FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN? 
FORTRAN: 
FORTRAN: 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FARTRANS 
FORTRAN: 
FORTRAN: 
FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN? 
FORTRAN: 
FORTRAN: 
FORTRAN? 
FORTRAN? 
FORTRAN: 


e FORTRAN: 
» FORTRAN? 
2» FORTRANS 
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ex? 
kx ¢ 
xx? 
a*x1 
tex 
tke? 
Es 
text 
kK? 
tex? 
labs 
ichar 
ichar 
idim 
Idnin 
ihnin 
index 
Insb 
istgn 
jabs 
jdimn 
jmaxd 
jminod 
jmod 
isign 
fen 

~See 
~See 
-See 
-See 
-See 
~Sea 
-See 
-See 
~See 
-See 
-See 
-See 
-See 
-See 
-See 
-~See 
-See 
-See 
-See 
~See 
~See 
-See 
~See 
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operator 
operator 
operator 
operator 
operator 
operator 
operator 
operator 
operator 
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{FIXED coltation) 
{USER cottation) 


t 
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(boo! 


{abs 
(dim 
{max 
(min 
(mod 
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Note 
Note 
Note 
Note 
Note 
Note 
Note 
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Note 
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evesi_vfunc_tne_bsian _collateds {1: See FORTRAN: -See Note l= 


evesivlvfunc_Itob_bOls {22 See FORTRAN: Itob 
ecvesivlvfune_ttob_Lbstans {13 See FORTRAN: Itob 
evcsivvfunc_masks {12 See FORTRAN: mask 
cvetivvfunc_max0» : {13 See FORTRAN: maxO {two args) 
eveticlvfunc_maxls {1: See FORTRAN: maxi (two args). 


eveSi vfunc_merge_L28bit_bOls»s {2:2 See FORTRAN: merge 
cvcti_vfunc_merge_1l28bit_bsians £13 See FORTRAN: merge 


evestivvfunc merge _lobit_bOl,  {F2 See FORTRAN: merge 
evesSi_vfunc_meraqe_l6bit _bsiaqns, {Fi See FORTRANs merge 
evesi_vfunc_mergqe Llhit_bOl» {22 See FORTRAN: merge 


cevcti_vvfunc merge _lbit_bsigns {12 See FORTRAN? merge 
eveSi_vfunc_merge _ 256b)t_bOls £F: See FORTRAN? merge 
evetivvfunc_merge_ 256bit_bsians, ({F: See FORTRAN: merge 


cvc$i_vfunc_merge_ 32bit_bOl» {23 See FORTRAN? merge 
eveti_vfunc_merae_32bit_bslans (£2: See FORTRAN: merge 
evcti_vfunc_merge_S4bit_bOl» {22 See FORTRAN: merge 

evecti_vfunc_merge_ f4£4bit_bsigns (1% See FORTRAN: merge 

eveti_vfunc _merae_8bit_bOl> {F: See FORTRAN: merge 

evce$ivvfunc_merage_ 3hit_bsigns fF: See FORTRAN: merge 

eve$i_vfunc_minds {12 See FORTRAN: mind (two args) 
evetivlvfunc minis {1% See FORTRAN: mini (two args) 

cvctl vfunc_mods {1s See FORTRAN: mod (ADA trem! operator) 
cvesi_vfunc_mod_ada»s (A? See ADA? tmod!' ooerator 
evesi_vfunc_neav_lbity» (1: See FORTRAN? neav {two args» bit) 
evesti_vfunc_neqv_64hits {1:3 See FORTRAN? neaqy (two argss boolean) 
evesi_vfune_nints {1:2 See FORTRAN: nint 

evceti_vfunc_not_lbit» {13 See FORTRAN: compl (bit) 
evesSi_vfunc_not_h4bits £13: See FORTRAN: comp! (boolean) 
eveticvvyfunc_odd_bol>» [Ps See PASCAL? odd 

eveti_vfunc_odd_bsigqns {P: See PASCAL? odd 

cvceti_lvfunc_or_lbit»s {1: See FORTRAN: or (two argss bit?) 
cvesi_vfunc_or_64bit» {1:2 See FORTRAN: or {two argss boolean) 


evesivlvfune_r128_to_cl28_powers, {1:2 See FORTRAN: ***** operator 
evcesivvfunc_r128_to_c256_powers fF: See FORTRAN: ***! operator 
cvc$ivvfunc_rl128_to_c64_powers fF: See FORTRAN? '¢#*! gperator 
evesicvfunc_r1l28_to_i32_power, {F?: See FORTRAN: ‘'**! operator 
evesi_lvfunc_r1l28_to_i64_powers, {1:2 See FORTRAN: *&**? gperator 
evc$iclvfunc_rl28_to_rl28_powers» {1:2 See FORTRAN: '%**! operator 
evest i vfune_ril28_to_r32_powers £22 See FORTRAN: %**! operator 
cves$icvfunc_ri28_to_r64_powers (1: See FORTRAN? ¢***!' operator 
cevcsi_vfunc_r32_to_cl28_power, £2: See FORTRAN: '#**? operator 
evesiivfunc ir 32_to_¢c256_powers fF? See FORTRAN? kt operator 
cevesi_vfunc_r32_to_ch4_power » {F3 See FORTRANS **#*! operator 
cvesi_vfunc_r32_to_132_power >» {Fs See FORTRAN: %**** operator 
eveSi_vfunc_r32_to_§64_power>»s {23 See FORTRAN: ‘'*#*! operator 
evesivvfune_r32_to_rl28_powers £2: See FORTRAN: ‘¢***! operator 
cevesi_vfunc ur 32_to_r32_power » {23 See FORTRAN: %t#** operator 
evetilvfunc_r32_to_r44_power>s {23 See FORTRAN: ‘'#*#* operator 
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evesitlvfunc_r64_to_cl28_pnowers {1:2 See FORTRANS ‘¢*** operator 
eveSiclvfunc_r64_to_¢e256_power, {F? See FORTRAN? '%**! operator 
evesSi_vfunc_r44_to_c6é4_power » {F: See FORTRANS ¢**! goerator 
evcesi vfunc_r64_to_!132_power» {F3 See FORTRAN: '%**! operator 
evc$i_vfunc_r64_to_164_power >» 1: See FORTRAN: '#*** operator 
evesiilvfunc_r64_to_rl28_powers {12 See FORTRAN: '%#*" operator 
evesSivlvfunc_r44_to_r32_power» {22 See FORTRAN: %*** operator 
eveSi_vfune_r64_to_r64_powers {1:2 See FORTRAN: %t*®! operator 


evesi_ vfunc_rorods {22 See FORTRAN: rprod 

eve$iclvfunc_sgn_§ 64» {B82 See BASIC: sgn (164 args i164 result) 
eveti_vfunc_sgn_r64» {82 See BASIC: san (r64 args 164 result) 
eveti_vfunc_ shifts £12 See FORTRAN: shift {boolean First arg) 
eyesi_vfunc_signs £13 See FORTRAN? sign 

eveSicvfunc usin» {13 Se FORTRAN? sin 

ceveti_lvfunc sind» T13 See FORTRAN: sind 

cvcSi_vfunc_sinhys {12 See FORTRAN: sinh 

eveticlvfunc usart» {12 See FORTRAN: sart 

cveti_wvfunc_tans {12 See FORTRAN: tan 

evetivlvfunc_tands {12 See FORTRAN: tand 

cveSiivfunc tanh {1:2 See FORTRAN: tanh 

3 

{ Notes; 

f 

— 1) All of the following code generator intrinsics appear In FORTRAN as 
{ character relationa!l operators. Some also appear In FORTRAN as 
{ specific intrinsics. 
{ 
{ _!eq_ bol» ",F9." operator CFIXED collation) 
{ _lea_boOl_cotlateds *.E9.' operator (USER collation) 
{ ~!ea_bsigns ',FQ.! operator (FIXED collation) 
{ _!eq_bsign_coltlateds ".EQ.' operator (USER collation) 
{ _!qe_bOl1ls *.GF.* operators LGE Intrinsic (FIXED collation) 
{ _!qea_bOl_collateds *,.GE.!' operator {USER collatton) 
{ _ltae_bsigns *,GE." operators LGE intrinsic (FIXED cottatton) 
{ _!ae_bsian_collateds *.GE.!' operator (USER coltation) 
{ _!gt_bOl» '.GT.!' operators, LGT intrinsic (FIXED coltation) 
{ ~fat_bOl_collateds *.GT.' operator (USER collation) 
{ lat _bsign»s *.6T.' operators LGT intrinsic (FIXED collation) 
{ lat ubsign collated, *,.GT." operator (USER collation) 
{ _!te_bdOls ".LE.! ovoerators LLE intrinsic {FIXED collation) 
{ tle lbOl_collateds *,LE.' operator (USER collatton) 
{ ~!feclbsigns 4.LE.* operators LLE Intrinsic (FIXED collation) 
{ _!lelbsign _collateds ',LE.* operator {USER collation) 
{ _'it bols *,.LT.~* overators LLT intrinsic (FIXED cottation) 
{ fit lb0l_coltateds *.LT.* operator (USER collation) 
{ wtltubstigqns .LT.' operators LLT intrinsic (FIXED collation) 
{ lit ubsign_collateds *,.LT.~* operator {USER collation) 
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ine _ bol» *,NE.!' operator (FIXED co ation) 
_!ine _bol_collateds ".NE.* operator {USER cotlation) 
_ine _bsians *,NE.'’ operator (FIXED collation) 
_!ne lbsian_coltateds *,NE.* onerator (USER collation) 


2) Function "evcti_mfunc_ranf™ corresponds to the FORTRAN “rant” 
intrinsic havina no source arguments or having a scatar source 
argument. In either case the code generator Intrinsic has no 
arguments. Function “evcti_mecal!l_ranf™ corresoonds to the FORTRAN 
"ranf® intrinsic having an array araument and result. In this case the 
code generator intrinsic has no argqumentss but has an array result 
(apoearing as the First and only subroutine argument). For both scalar 
and array verstons of "ranf™, the generated CYBER 180 code references 
the variables "mivtrandom_mnufttipttier”™ and “mivtrandom_seed"™, 


2) Funetions "cevef$iimcal!l_ranget”™ and “cvcS$i_mcalluranset”™ correspond 
to the FORTRAN processor-supoltied subroutines "RANGET™ and "RANSET" 
respectively. The generated CYBER 180 code references the variables 
“mivérandom_seed”™ and (RANSET onty) “"mivSinitial_ seed", 


4) Fxeept for "cvc$i_tcativdiagonal_char™s the Code Generator 
“diagonal™ intrinsics reauire an extra (third) argument which Is the 
{constant) default vatue for 2113 array result elemants which are not on 
the array diagonal. For “eve$i_teal!iidiagonal_char"s a blank string 
is atways used for the default values so there are only two arguments. 


5) Functions "eveti_meall_scan_bO1l" and "evesi_-meall_scan_bsiaqn”™ 
correspond to the CYBIL intrinste "#scan" with the following restrictions. 
The third operand must be a varlable with the code generator type of 
cvtSi_type_Integer_64,s and the fourth onerand must be a variable with 
the code generator type of either cvtti_type_boofean_0_1 or 
cvtSi_tyne_bootean_sian (as reflected in the function name). 3oth the 
third and fourth operands must be variables with a ltength of 44 bits. 
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C1.0 INSTRUCTION OPCODE USAGE 


CVCG processes {ootimizess vectorizess etc.) code for a sequence of 
instructions passed to it by the Host. Tha set of possiblia 
Instructions can be thought of as the assembly language for an 
abstract computer. Note that the actual code generated for a 
particular machine wil! not be a one-for-one translation from the 
Instructions passed by the Host. CVCG supports a targa number of 
instruction opcodes. Iniine code will he generated for all of these 
opcodes on the CYRER 180» and for most of these opcodes on the CYBER 
200.2 The rest of these opcodes will be generated as calls to 
library routines. The parameter list for such a ftibrary call ts 
always placed In registers. 


In order for the appropriate library routines to be present at 
execution times the Host must Inctude the appropriate tibrary in the 
library list field of the code _gsenerator_attributes parameter of the 
cypti_begin module call. 
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C2.0 INSTRUCTION OPCODE NAMING CONVENTIONS 


-to be added tater- 
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€3.0 INSTRUCTION OPCODE DEFINITIONS 


-to he added tater- 
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C4.0 CVI$I_CODE GENERATOR _Opcone 


22 PUSH (LISTEXT 2= ON) 27 

2? POP 2? 

7? PUSH (LIST %*=# ON) ?? 

f evttivlcode_ generator_opcode } 
2? POP 2? 


72 FMT (FORMAT t= OFF) 2? 


TYPE 
cevtSi_vcode_qenerator_opcode = ({ 


{ Instructions available in Interfaces with rasult Caka HYashed Result)? 


evc$llop_b_lands {hit string fogical and 
eve$i_oo_h_andns {bit string fogical and_not 
evc$i_op_b bites {hit strina compare equal 

evesi_oo_ b_bitnes fbit string compare not_eaua! 
cyvc$i_op_hb cats {BDP string concatenation 

Po ee eee FRDP coltated compare equal 
cvcsi_lop_h_cea_is» { -to he deleted- 

eveti_op_b_cges TBDOP collated comoare greater_or_equal 
cyc$l_loo_b_icge_ls» { «to be deleted- 

cvc$i_op_b_cats {BDP collated compare greater_than 
cvcti_op_b_ cat ls { -to he deleted=- 

cyc$i_oo_b_cle, IBDP collated compare ftess_or_eaual 
cvc$i_oo_b_ cle_i» { -to be deleted= 

cvce$i_lop_b_ucit» {BOP collated compare less_than 


eve$iloo_buctt lis { <-to he deleted- 
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cvce$i_oo_b_ucne, {BNP collated compare not leaqual 
cvcsi_oe_b_cne_t>» {8DP index of collated eer ee 
cvceSi_op_b_ dea» {BOP decimal compare equal 
cvyce$l_oap_h_d¢ges {BNP dacimal comoare greater_or_eaual 
evcti_loo_budgt» {BDP dacimal compare greater than 
evc$l_op_b_ dies {BOP decimal comoare ftess_or_eaual 
cvyceS$ilop_buidit»s £BOP dacimal compare less than 
cvc$i_op_b_dnes {BOP decimal compare not_eaua!l 
cvc$i_op_b_eqvs {bit string logtcal equivalent 


evc$i_op_b_lfcmp_be» {B3DP lexical compare with broadcast constant 


cvycti_op_b_leqp» {BOP lexical compare equal 
evceSilop_b_lea_i>» { -to be deleted- 

cevcesi_op_b_lgqes {8DP textcal compare greater_or_equal 
cvc$i_op_b_tae_i» { -to be deteted= 

eveSicloo_b_liqt» £BDP fexical comoare greater than 
cvetl_op_b_lat_i» { =-to he deleted- 

evc$i_loo_b_lie» CBOP lexical comoare tess _or_eaqual 
cve$i_ono_b_tle_i» { -to he deteted- 

cve$i_oo_b_ltt» {BNP ftexical compare less than 
evesSi_oo_b_iit lls { -to be deleted- 

cvceSilop_b_tnes fBDP lexical comoare not_equa!l 
cvchi_op_b_Itne_i» {BNP index of texical comoare not_equal 
cvyc$i_op_b_nands {bit string logical nand 
cve$i_lop_b_nors {bit string togical nor 


cevc$li_op_ bi not» {bit string logical not 
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cyc$i_lop_b or» Tbit string ftogical or 

evc$i_oo_b_ornys {bit string togical or_not 

cvcS$ilop bo scans {BOP string scan for member 

cve$i_op_b_scan_ ty» {BNP string index of scan for member 

eveti_lop_b_xors fhit strina ftogqical xor 

evc$i_lop_calis {subroutine call 

evcehl_op_call_p» {subroutine calt with specifle parameter tist pointer 

cveSi_op_entrys ferocedure entry 

cvce$Silop_funcs {function call 

cvce$i_oo_icalit, {intrinsic subroutine call 

evc$li_op_paramptrs {create soecific parameter tist pointer 

cvcSi_op_pops {pop from stack 

ecvycti_oo_ptradds fadd Integer to nolnter value 

eve$i_op_p_arrelts {describe array element reference 

eve$i_op_p_arrrefs {describe array reference 

eveS$i_op_p_arrsecs {describe array section reference 

cvc$i_oo_p_ field» {describe record field reference 

evc$i_lop_p_list» {describe fist of operands 


cve$i_lop_p_t_fist» (describe list of tahels 

cyvc$i_lop_p_ params {describe actual oarameter 
cvyce$l_ono_p_recelts {descrihe pseude-erray element reference 
cvc$i_loo_p_recsecs Cfdescribe oseudo-array section reference 
eve$ti_loo_p_refys { -unneeded?- 


cvyc$i_op_p_substr»s {deserlbe substring reference 
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evce$i_lop_ resets» {reset stack oointer to previous stack frame 


eveti_op_s_adds 


{scatar numeric add 


evc$i_op_s ands {scalar fogical and 

cycti_op_s_andns {scalar logical and_not 
eve$Si_opo_s_conves {scalar numer tc type conversion 
cvc$i_lop_sudive {scalar numeric divide 

cvcti_op seas {scalar numeric compare eaual 
cve$i_op_s_eqvs {scalar logical equivalent 

cve$i_op_ sige» {scalar numeric comoare greater_or_equal 
cveS$i_oo_s_ats {scalar numeric compare greater than 
eve$i_oo_s_ifuncs {scalar intrinsic functton call 
cveSi_op_s_ley» {scaftar numerle compare ltess_or_equal 
cvc$li_op_s_lts {scalar numeric compare less than 
eveBi_op_ us umuls {scalar numeric multiply 
cyc$i_oo_s_nandys {scalar logical nand 

cvesi_op us nes {scalar numeric compare not_equal 
ceve$i_op_s unors {scalar logical nor 

eve$ilop_s nots {scatar loaical not 

cvc$i_op_s_orys {scalar logical or 

evesi_lop_s_orns {scalar fogica!l or not 
cvce$i_oo_s_ranfs {scalar ranf tntrinsic function cal! 


cvcti_op_s_shfcs {scatar circular shift 
cvce$i_oo_s_ushfe» {scalar end_off shift 
cve$i_op_s_ sub» {scalar numeric subtract 
cvc$l_op_s_xors {scalar logical xor 
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cvcti_op v_addys 


{vector 


numeric add 


cevcti_op_v_ands {vector logical and 
eveSi_op_v_uandnys {vector logica! and_not 
cvc$i_op_v_convs {vector numeric type conversion 


evc$i_lop_uv_idivys 
evycSi_oo_v_@ay» 
cevcSi_oo_v_eave 
cycS$i_op_v_ge» 


cvcti_op_viagts 


{vector 
{vector 
{vector 
{vector 


{vector 


numeric divide 

numeric compare equal 

logical equivalent 

numeric compare qreater_or_esual 


numeric compare greater_than. 


evce$i_loo_v_ifuncs {vector intrinsic functian call 
eveti_op_v_ifunc urs vector intrinsic reduction function cal! 
cvc$i_op_v_ les {vector numerltc compare less_or_eaual 


cyvc$!l oo v_tts 
cvce$i_op_v_mul>» 
eveti_oo lvinands, 


cycti_oo_viones 


{vector 
{vector 
{vector 


{vector 


numeric compare less than 
numeric multipty 
logical nand 


numerile compare not_eaqua! 


cvc$i_op_v_nor» {vector logical nor 

evcti_op_v_nots {vector logical not 

evcesi_oo_v_or, {vector ltogica!l or 

evce$i_op_vlorns {vector logical or_not 
cye$i_oo_v_ranfs {vector ranf Intrinsic function call 


cvc$i_oo_v_shfcs 
cvc$i_oo_vushfes 


cvyeti_op_v_subs 


{vector 
{vector 


{vector 


cireular shift 
end_off shift 


numeric subtract 
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evetl_oo_v_xors {vector logical xor 


{ Instructions avatlab!e In Interfaces without result (aka Non-Hashed): 


cyc$i_op_br_ed» fobranch on numeric equal 
eveftiloo_brofs {branch on logical false 
evesi_voo_broges {branch on numeric greater_or_equat 
cvcf$ivlop_br_gts {branch on numeric greater_than 
evcesi_lop_brets {branch Indirect 

cvyesi_op_br_le» {branch on numeric tess_or_equal 
evceSi_lop_br_its {branch on numeric tess than 
cvce$i_opo_br ne» fhranch on numeric not eaual 
eveti_op_br_tys {branch on tagical true 
ecvcti_loo_brous {branch unconditionally 
eveSi_op_bladd»s {BDP decimal add 


cevc$i_op_b_bitmoves {bit string nove 


cyesl_oo_b_uconys {CBDP decimal type conversion 
cycSi_op_b divs CBDP decimal divide 
cvceti_lop_b_ledits CBONP strina edit 

cyc$i_op_b_ moves {BOP string move 


cyc$i_op_b_move_bes f€B8DP string move of broadcast constant 
cves$l_op_bumul» {BNP decimal multiply 


cvc$i_op_b ushfe» {BDP decimal shift end_off 
{ **to be renamed cvc$i_op_b_ushfext* 


eyesi_lop_b ushfec urs {BNP decimal shift end_off roaunded 
{ *¥*to he renamed cvcti_op_b_ushfe_r* 


evcti_oo_b subs {BDP decimal subtract 


cycfl_iop_b_ trans {BOP strina transtation 
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evesti_oo_derefs foointer dereference 
cveSi_op_hwuspecs Thardware specific Instruction 
evcsi_op_ jumptbl>» {create jump table 


evcSi_op_labeltref >» {create label reference 


eve$i_oo_procrafs {create orocedure reference 
cvect$i_op_ptrmoves {pointer move 
evesl_op_ptrraf,s fereate voninter raference 
cve$i_oo_push» {push onto stack 
cvcSi_lop_p_ block» {start of basic hlock 


cyctli_op_o_biockends {and of basic hlock 
eve$i_oo_p_defys { -unneeded?- 
cvcticlop_p_inits {start of Initialization code 


cvceti_oo_p_iInitends {end of initialtzation code 


ecvc$i_op_p_labels {start of labelled code 
eveSi_op_p_lines {start of source tine 
evesi_oo_p_procs {start of procedure 


eveSilop_p_procends fend of procedure 


cveSl_oo_returns {procedure return 

cvcti_op_s_!_to_s» {scalar move long to shorts truncated on teft 
cvc$i_oo_s_ moves {scalar move 

cvcSi_op_s_parens {scalar parenthesization 

cvcti_op_s_s_to_t» {scalar move short signed to fangs sign extended 


cvetli_on_s_u_to_l» {scatar move short unsigned to fongs zero extended 


evcfi_ooa_vigthrs fvector gathers fixed interval 
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cycSi_oo_v_athr_b» {vector gather blockss fixed interval 


ecve$i_op_v_gthr_i> {vector gather according to index vector 


cvc$i_loe_v_i_to ls» {vector move tong to shorts truncated on teft 
cvcsSi_lop_v moves {vector move 

cveti_op_v_parens fvector parenthesization 

eves) _op_vusctrs {vector scatters fixed Interval 


cveti_op_v_sctr_ebs {vector scatter blockss fixed interval 
cevetli_ep_vosctr_ts {vector scatter according to index vector 
cvceSi_oo_v_u_to_l>» {vector move short unsigned to longs zero filled 


cvcS$i_op_v_vito_I>» {vector move short signed to fongs sign extended 
{ **to be renamed cvcti_op_v_s_to_1 ** 


{ Instructions internal to Code Generators with result {eka Hashed Result): 


eveti_op_h_demp_c»s {BOP decimal comoare with constant 


cveSi_lop_exthy» {bit string extraction 

cyc$i_oo_extb_e» {bit string extraction aceordina to constant 
cvc$i_oo_inshbys {bit string insertion 

eve$l_op_insb ces {hit string Insertion according to constant 
cvcti_oo_load_h» {load with hashed result 

cvcti_op_marks {mark fYogical vatue 

cvcti_op_mskb» {bit string mask creation 

cyc$i_op_mskb oc» Chit string mask creation according to constant 


cvycti_op_otradd ics {add integer constant to pointer vatue 
cvc#i_op_p_array,s {describe array reference 
cvc$i_op_p_bdesecrs {describe 8D? descriptor 


cyc$)l_oop_p_cattinfos {describe additional call information 
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cychi_oo_p_cpypairs {describe reqister palr 


cvc$i_op_p_memrafs {describe memory reference 


eves$ilop_p_strings {describe string reference 


evesi_clop_s abs» {scalar numerte ahsolute value 

eve$l_op_s_add ic» {scalar numeric add of a constant 

cveti_ono us _add_z» {scaiar numeric add of a special constant zero 
cye$li_lop_s_ mul _c» {scalar numerltc mnultiply of a constant 
cvcti_op_s_ shfc_c» {scalar shift circular by a constant 
eveSi_op_s ushfe cy» {scalar shift end_off by a constant 
cyc$i_oo_s_xfers {scalar reqister transfer instruction 
evec$i_oo_s_xfer_c» {scalar register and constant transfer instruction 
cveSi_op s_xmits {scalar register transmit instruction 
cvc$li_oo_v_ xfer ur» {vector reduction transfer instruction 
cve$i_loo_v_uxmitirs {vector reduction transmit instruction 


{ Instructions Interna! 


cveti_op_b_add_c» 
cvc&i_oo_b conv cs 
evesi_oo_b_tcmp_ cy» 
cyc$i_oo_b_move_c» 
cycti_oo_loads 
cvc$i_op_p_cpytwrs» 
cvec$i_op_p_epyuors 
eveSli_lop_o_mads 
cvceti_lop_p_modends 


cvc$i_op_p_solids 


to Code Generators 


without 


result (aka Non-Hashed): 


{BDP decimal add of a constant 


{BDP dacimal type conversion of a constant 


BNP 


lexical comoare with a constant 


C8NP strina nove of a constant 


{load register 


{deserfihe reference to second register of a pair 


{describe reference to first register 


of a pair 


{start of comotlation module 


fend of compilation module 


{start of solid optinization block 
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evc$i_lop_p_sotidends fend of solid optimization block 


evceti_oo_ set calls {set ue for procedure call 
evcefi_op_stores {store register 
cyc#i_op_s_move_ cy» fscatar move of a constant 
cvesi_lop_uv_abs»s {vector numerlte absolute value 
cveSi_lop_v_add_72» {vector numeric add of a special constant zero 
eve$l_onp_viuxfers {vector transfer 
evetivlop_voxmit {vector transmit 
3 
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